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»REM_ 
IDENTIFICATION 


PRODUCT ID: AC=TO99A=MC 
PRODUCT TITLE: CVTSDAO TSVOS CTRL LT4 


AUTHOR : DICK GORDON 
MAINTAINER: SCOTT SNOWDON 
DATE: MARCH 08, 1982 


THE INFORMATION IN THIS DOCUMENT IS_ SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1982,1982 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


. 1S_A PDP=11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

TSVO5_ MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP=11//23 SYSTEM 
(0-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 

RUNTIME SERVICES SOFTWARE (SUPERVISOR). corte gh AS PROVIDE 

ha 4 INTERFACE TO THE OPERATOR AND TO THE SOFTWARE E pom iB 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE. AN APER 

TAPE. FOR A COMPLETE ae tie OF THE RUNTIME SERVICES. REFER 

TO THE XXDP+ USER'S MANUA THERE IS A BRIEF on OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT 


1.2 SYSTEM REQUIREMENTS 


PDP=11/23 PROCESSOR AND MEMOR 

CAUTION: DIAGNOSTIC REQUIRES 52k WORDS OF MEMORY 

(28K USEABLE AND 4K RESERVED FOR I/O PAGE) 

ioe toma “_ (DRIVE AND CONTROLLER) 

PDP=11 DIAGNOSTIC SUPERVISOR (HSAAA. Svs tein 34 OR LATER) 
PDP=11 DIAGNOSTIC LOADER/MONITOR (XXDP+ 


1.3. RELATED DOCUMENTS AND STANDARDS 


DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


1. CHQUS XXDP*+ USERS MANUAL; DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSV05-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSV05-TM-001 


DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSV0S~IN-001 


DATE: AUGUST 1982 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


FUNCTIONAL met ye PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LOADER/MONITOR (XXDP+) 


SEQ 0003 


ce 
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1.5 ASSUMPTIONS 

ALL_HARDWARE EXCEPT Lu HARDWARE Oost TEST IS ASSUMED TO WORK 
PROPERLY OR FALSE ERRORS CAN BE REPORT 

ar tape. BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSAA,CVTSBA AND CVTSCA HAVE SUCESSFULLY RUN. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXD®+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME arg 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

eertrcate ly BE ACTIVE AT START TIME 

DROP DEACTIVATE A _UNIT 

PRINT Ae STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4. A 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE As lame so 
YOU MAY, FOR EXAMPLE, TYPE ‘‘STA’’ INSTEAD OF ‘‘START' 


2.1.1 OPERATOR COMMANDS 


THE TSVOS ere ty 1S A PDP=11/23 DIAGNOSTIC SUPERVISOR ge ba 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN 


THE 
CHQUS XXDP+ USERS MANUAL ,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC XXDP MEDIA 


-R VTSD?? 
prea | RUN-TIME SERVICES REV D. APR 79 


eeeaTSV05 LOGIC DIAGNOSTIC#*** 
met IS TSVO5 ‘ 


SEQ 0004 


uvu- 


ss FT 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY a he OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMAN ALL ‘"e THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, : Re 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD"’. 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS wergs’ fete IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7=10. 
THIS LIST Ete TESTS 1,5, TO ay TO 


BE RUN. ALL OTH NOT BE RUN 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS in sections, FLAGS. FLAGS ARE DESCRIBED 


ON 2.3. 
/EOP:DDDDD REPORT END OF PASS wkees md a A EVERY 
DDD PASSES ONLY DDDD = 1 TO 64000) 

/UNITS:LIST ue rcee on Me UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10-12 

USE UNITS 0,5, 0; 11,12 (UNIT NUMBERS = 0-63) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1=5/PASS: 1000/E0P: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL eH 1000 TIMES AND 3) THE END OF 


SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE ‘‘/TES:1=5°* INSTEAD OF ‘'/TESTS:1-5"'. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


START w A x x 
x x 


Se] 
3 
“ 
oo 
& 
=< 
x< CO 
ae 


x 
ADO x 
DISPLAY x 


2.3 FLAGS 
FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON REMAIN 


ERR ALL FLAGS ARE CLEARED AT STARTUP AND 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 


o- 


o—----—- - 
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ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING Hy 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TC CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME al COMMAND MODE 

LOE LOOP ON ERR 

IER* INHIBIT ALL OFRROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’'S) 

PRI DIRECT_"ESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL’’ ON ERROR 

UAM UNATTENDED MODE (NO MANUAL ag itt 

ISR INHIBIT STATISTICAL REPORTS (DOES N 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM ee OF UNITS 
ADR EXECUTE AUTODROP COD 
LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER*S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE See SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: B0E 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS gies THE RUNTIME SERVICES wart rene 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) 

YOU MUST ANSWER PY AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN *PRELOADED* pry THE SETUP UTILITY +Se5 
CHAPTER 14 OF THE XXDP+ USER*S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM gi COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "‘CHANGE HW?°* QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED BY THE OPERATOR). 


A "W'' (NO) RESPONSE TO THE ‘CHANGE HW?’ QUESTION, THE DIAGNOSTIC WILL 


RUN MUSING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


SEQ 0006 


o- 


- —-—---- — -- Se 
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SEQ 0007 


TSBA/TSDB = 172520, VECTOR = 224 


D 
VALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS "TH e 
DEFAULT VALUE, THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A ““(D) IN A QUESTION, INDICATES THAT A DECIMAL NUMBER 1S 
REQUIRED AS A RESPONSE. AN.'"(O)"" INDICATES. AN OCTAL NUMBER 1° GEING 
SOLICITED, AN '\<L}™ INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 


# UNITS (D) 2? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSD8 REGISTER> 


VECTOR (0) 224 ? » idole ADDRESS OF INTERRUPT 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE ‘# UNITS?°° gia LOGICAL UNIT 

NUMBERS ARE ASSIGNED e Parad BEGINNING AT 0. UP TO FOUR UNITS CAN BE 

SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSVOS5 CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A foeee 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWAR 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME eats SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY ae 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY 

“"Y’", THE SOFTWARE ott a AND THE DEFAULT VALUES. ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S) 


THE FOLLOWING QUESTIONS ARE ASKED ON A_ START, RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N 2? <TYPE “'Y** TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN a 


ITERATIONS.> 
2.6 EXTENDED P-TABLE DIALOGUE 
WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 


n— 
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IN A_TABLE THAT ret * DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS T 7. if Baas ALL QUESTIONS FOR EACH 

UNIT TO Fen TESTED. IF Y AVE A MULTIPLEXED A SUCH AS 
A_MASS STORAGE CONTROLLER” vith SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


'y ILLUSTRATE A MORE Supecce’ METHOD, SUPPOSE YOU ARE TESTING 
DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONT ROL MODULE vitH EIGHT UNITS (SUB-DEVICES) yin + TO IT. 
THESE UNITS ARE eocmeeee rv THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY Y BE 0 OR 1. BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) 2? O<CR> 
Q-FACTOR (0) 0? 1<CR> 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 
CSR tery i (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR aap t a - 7 ngonoocta> 
SUB-DEVICE # (0) 5<C 
Q-FACTOR (0) 0 ? cae 


UNIT 7 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0? 1<CR> 


UNIT 8 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


SEQ 0008 


sidiahitiebantiiatneencaldbtadiinieead! 


na 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON~DEF AULT RE SPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
D” NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
inet THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ? 2=5<CR> 
Q-FACTOR (0) 0? O<CR> 


UNIT 7 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0? 1<fR> 


AS YOU CAN SEE IN THE ABOVE papa om a pony SERVICES WILL 
BU ui — ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 


SS, FOUR 
BUILT. at IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. TH 
- RUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE TP RST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
AND 5 WERE ah (IF THE SUB-DEVICE WERE SPECIFIED 

BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE one atid AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


4. 7 Pe COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? OQ-7<CR> 
Q-FACTOR (0) 0? 0O,1,0..,.,1,1<iR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


SEQ 0009 


a—, 
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2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “'R NAME’’, WHERE NAME IS THE NAME OF THE BIN OR BIC: 
FILE FOR THIS PROGRAM 


4. TYPE ‘’START"’ 

5. ANSWER THE ‘‘CHANGE Hw’* QUESTION WITH ‘‘y'' 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "'CHANGE SW’’ QUESTION WITH ‘'N’' 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE a THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


Sg ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘IER’ ad IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


eWHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
R = ERROR NUMBER 


NUMBE 

UNIT NUMBER = 0 - N (N_IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC :XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION. ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE ““IER" OR “IR FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER", “IBR' OR “'IXE'’ FLAGS.ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 

SSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


SEQ 0010 


| 
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BELOW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNOSTIC. 


ERROR MESSAGE EXAMPLE 1 
THIS ERROR IS rae | OF AN ea ert REGISTER OR uTATUS WORD RETURNED 
ic & sy ee HE FIRST PAR INE 


THE SECON CS FOR THE 
_— REGISTER OR STATUS '10ORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER TEST 
CVTSD HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


TAPE BUS SIGNALS IN WORD #8: = DESIGNATOR <BIT #> 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> IRWD<2> 
IRESV2<14> IIDENT<11> IHER <8> JONL<5> IFBY<1> 
IRESV1<13> iCER <10> ISPEED<7> ILDP<4> IFPT<0> 

APE BUS SIG N WORD #9: 


T 
DATMIS<7>_ ILW<6> OUTRDY<5>__INRDY<4> 
SSAGE BUFFER ADDRESS = 047352 


MESSAGE ores CONTENTS: 

WORD #0 E 100020 RECV: 100020 xOR: 000000 
WORD #1 ERPD: 000012 RECV: 000012 xOR: 000000 
WORD EXPD: 000000 3 : 


: $ xOR: 0 
WORD #8 EXPD: 070217 RECV: 070217 xOR: 000000 
WORD #9 EXPD: 000074 RECV: 000034 xXOR: 000040 


ERROR MESSAGE EXAMPLE 2 


THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE,IN THIS 
SS ae aii ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 


CVTSD HRD ERR 00159 ON UNIT LR 001 a. ges PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS C 
TSSR = 100214 
TSSR BITS SET: SC, 
TERMINATION CLASS. CODE = UNRECOVERABLE ERROR 


PACKET ADDRESS = 026420 
PACKET WORD # = 140010 
PACKET WORD # = 000010 
PACKET WORD # = 000000 
PACKET WORD # = 000024 


ERROR MESSAGE EXAMPLE 3 


SEQ 0011 


z-— 


po nr eae 
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THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTSD a ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 

MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 

ah NUMBER A hoy REPORTED SINCE THE aren tc WAS STARTED. 
THE EO P*’ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


SUCCESSFUL RUN EXAMPLE (PDP=-11/23) 


DR>STA/FLA:PNT : HOE 

UNITS (D) ? 1 

UNIT 0 

DEVICE ADDRESS (0) 172520 ? <CR> 
VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 


THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE (COMMAND HAS TWO 
ts ON WHICH ARE ‘PRINT EACH TEST NBR AS EXECUTED’' AND ‘HALT ON 


TST: 001 SKIP TAPE MARKS TEST 

TST: 002 Space AND INITIALIZE TEST 

TST: 003 ERASE AND ieee INCOMPLETE TEST 
TST: 004 DATA PARITY TEST 

TST: 005 T rest a OPERATIONS AT EOT TEST 

TST: 006 EXTENDED-MODE A ES ee TEST 

TST: 007 RECORD BUFFERING TEST 

TST: 008 FUNCTION TIMING TEST 


0 ERRORS 


NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE ‘‘/PASS:"* SWITCH. 


PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE Fisuaes ARE 
TO BE USED AS A_ GUIDE. THE TIMING WAS DONE ON A PDP-11/2 
PROCESSOR WITH A LA34 CONSOLE. 


SEQ 0012 


~~“? . 
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THE PROGRAM RUNS _IN TWO MODES; $e ITERATIONS AND DEFAULT MODE. IN THE 


NO ITERATIONS . EACH TEST HE 
DEFAULT MODE EACH TEST IS a I YEAAT BY. THE NUMBER OF TIMES INDICATED BY 
THE ITERA UNT. _ NO ITERATIONS Wee mg SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A ‘'Y’* (YES) 


N/I NUMBER 


DEF 
NUMBER SECS. _ SECS. 


— 
SS 
oooooeo— 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 


Q.V. 15 SECONDS 
DEFAULT 16 SECONDS 


5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED, VIA THE STAC(RT) COMMAND, 

tae ant REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CHANGE HW (L) ? 


# UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? ~ ADDRESS OF INTERRUPT 


THE ADDRESS AND VECTOR QUESTIONS tte BE ASKED FOR EACH OF THE NUMBER 0 

UNITS (CONTROLLERS) SPECIFIED I # UNITS? yw Be LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN GROEA, BEGIAYING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
py CHANGES TO THE SOFTWARE OPERATING eect, AS 





SEQ 0013 


——? 





USER DOCUMENTATION 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


1: 


2: 


WwW 


wm 
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CHANGE SW (L) ? 


INHIBIT ITERATIONS (L) N ? 


6.0 TEST SUMMARIES 


WRITE TAPE MARK RETRY 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE, ERASE, WRITE TAPE MARK). 


SKIP TAPE MARKS 


THIS Hy VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 

FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER ght od 
UNDER le ae ALL gt carly OF THE ENABLE SKIP TAPE MARK 

STOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
BY THE URITE. CHARACTERISTICS COMMAND. 


: NO-OP ("'CLEAN TAPE'’) AND INITIALIZE 


THIS TEST VERIFIES PROPER OPERATION OF es NO-OP ("‘CLEAN TAPE*') AND INITIALIZE 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA 


: ERASE AND OPERATION INCOMPLETE 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 


: DATA PARITY TEST 


THIS TEST VERIFIES THAT THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AND THE 
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TO BE 
WRITTEN ONTO TAPE AND CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ. 


: OPERATIONS AT EOT 


THIS TEST VERIFIES PROPER OPERATION 7 aint WRITE DATA RETRY 
COMMAND <SPACE REVERSE, ERASE, WRITE D 


: EXTENDED MODE FEATURES 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
fl CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 


REWIND WITH IMMEDIATE INTERRUPT 


SEQ 0014 





USER DCCUMENTATION 


TEST 8: 


TEST 9: 
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IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


RECORD BUFFERING 


THIS TEST ged THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES FEnistics OHTA IS a uy 


P WITCH ON DULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE “OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 


ND WRITE AND SO 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. 


FUNCTION TIMING 


THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
REC EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 

SKIP TAPE MARKS COMMAND WITH A_COUNT OF 6 OF ee OPERATE THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 

REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 

DIFFERENT TEST RECORD LENGTHS. 


7.0 MAINTENANCE HISTORY 
REVISION A = MARCH 1982 


SEQ 0015 


TSV2 = PROGRAM HEADER 


000000 


“SO 0WN-Ofwr 


Myo ww es 





002000 


000000 
001217 
105556 
105710 
002150 
002160 
106404 
000000 
000000 
000000 
000000 
002124 
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SEQ 0016 


-TITLE TSV2 = PROGRAM HEADER 
-SBTTL PROGRAM HEADER 


eMCALL SVC 
Svc 3 INITIALIZE SUPERVISOR MACROS 
«ENABLE LC 

«NLIST BEX,CND 

-ENABL ABS,AMA 


-=2000 
BGNMOD TSV2 
TSV2:: 


p++ 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNSW,BGNSF T BGNAL!,SGNDU,BGNRPT 
HEADER CVTSD.A,0,655.,0 


LSNAME : : sDIAGNOSTIC NAME 
ASCII /C/ 
ASCII /V/ 
ASCII /T/ 
ASCII /S/ 
eASCII /D/ 
CYTE 0 
BYTE 0 
-BYTE O 

LSREV:: sREVISION LEVEL 
eASCII /A/ 

LSDEPO:: 30 
ASCII /0/ 

LSUNIT:: ;NUMBER OF UNITS 
-WORD 0 

LSTIML:: sLONGEST TEST TIME 
eWORD 655. 

LSHPCP:: sPOINTER TO H.W. QUES. 
-WORD LSHARD 

LSSPCP:: sPOINTER TO S.W. QUES. 
WORD LSSOFT 

LSHPTP:: ;PTR. TO DEF. H.W. PTABLE 
-WORD LS$HW 

LSSPTP:: ;PTR. TO S.W. PTABLE 
-WORD L$SW 

LSLADP:: sDIAG. END ADDRESS 
-WORD LS$LAST 

LSSTA:: ;RESERVED FOR APT STATS 
eWORD 0 

L$CO:: 
-WORD O 

LSDTYP:: sDIAGNOSTIC TYPE 
eWORD 0 

LSAPT:: :APT EXPANSION 
WORD 

LSDTP:: 3PTR. TO DISPATCH TABLE 


-WORD LSDISPATCH 
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PROGRAM HEADER 


00204 LSPRIO:: ;DIAGNOSTIC RUN PRIORITY 
002042 000000 -WORD 0 
002044 LSENVI:: FLAGS DESCRIBE HOW IT WAS SETUP 
002044 000000 «WORD 
002046 LSEXP1:: sEXPANSION WORD 
002046 000000 «WORD 0 
002050 LSMREV:: 3sSvC REV AND EDIT # 
002050 003 -BYTE CS$REVISION 
002051 003 -BYTE CSEDIT 
002052 LSEF:: sDIAG. EVENT FLAGS 
002052 000000 -WORD 0 
002054 000000 -WORD 0 
002056 LSSPC:: 
002056 000000 -WORD 0 
002060 LSDEVP:: ; POINTER TO DEVICE TYPE LIST 
002060 003374 -WORD LSDVTYP 
002062 LSREPP:: sPTR. TO REPORT CODE 
002062 022744 -WORD LS$RPT 
002064 LSEXP4:: 
002064 000000 -WORD 0 
002066 LSEXPS:: 
002066 000000 -WORD 0 
002070 LSAUT:: ;PTR. TO ADD UNIT CODE 
002070 022432 -WORD L$AU 
002072 LSDUT:: ;PTR. TO DROP UNIT CODE 
002072 022530 -WORD LS$DU 
002074 LSLUN:: 3LUN FOR EXERCISERS TO FILL 
002074 000000 -WORD 0 
002076 LSDESP:: :POINTER TO DIAG. DESCRIPTION 
002076 003402 -WORD LSDESC 
002100 LSLOAD:: ;GENERATE SPECIAL AUTOLOAD EMT 
002100 104035 EMT ESLOAD 
002102 LSETP:: sPOINTER TO ERRTBL 
002102 000000 -WORD 0 
002104 LSICP:: ;PTR. TO INIT CODE 
002104 021636 eWORD LSINIT 
002106 LSCCP:: ;PTR. TO CLEAN-UP CODE 
002106 022716 eWORD LSCLEAN 
002110 LSACP:: ;PTR. TO AUTO CODE 
002110 022636 -WORD LS$AUTO 
002112 LSPRT:: ;PTR. TO PROTECT TABLE 
002112 021626 -WORD LSPROT 
002114 LSTEST:: : TEST NUMBER 
002114 000000 «WORD 0 
002116 LSDLY:: ;DELAY COUNT 
002116 000000 -WORD 0 
002120 LSHIME:: 3PTR. TO HIGH MEM 
0 000000 -WORD 0 





= So arr 


SEQ 0017 


| 








TSV2 = PROGRAM HEADER 
DISPATCH TABLE 
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SEQ 0018 


3 -SBTTL DISPATCH TABLE 
34 p++ 
35 3; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
38 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
38 : 
39 002122 DISPATCH 9 
002122 000011 .WO 9 
002124 LSDISPATCH:: 
002124 023526 eWORD T1 
002126 032334 -WORD T2 
002130 041432 eWORD 13 
002132 046770 WORD T4 
002134 053046 » WORD T5 
056042 ~ WORD T6 
002140 063414 - WORD 17 
073344 -WORD T8 


002142 
002144 101132 WORD 19 


TSV2 = PROGRAM HEADER 
DEFAULT HARDWARE P-TABLE 


000003 


50 

51 002150 172520 
52 002152 000224 
53 002154 000200 
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LSHW:: 
DFPTBL:: 


L10000: 





«SBTTL DEFAULT HARDWARE P-TABLE 


"THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST=DEVICE PARAMETERS. THE STRU 
_IS IDENTICAL TO THE STRUCTURE OF THE URUNSTIME P-TABLE. 


TURE OF THIS TABLE 


DEFAULT HARD=-P-TABLE 


110000-LSHW/2 


172520 
224 
PRI04 


3 1ST (OF 2) atte 


; INTERRUPT 


INTERRUPT PRIORITY. 


SEQ 0019 





2 
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SOFTWARE P-TABLE SEQ 0020 
56 -SBTTL SOFTWARE P-TABLE 
3 
p++ 

59 3; THE SOFTWARE P=-TABLE CONTAINS THE VALUES OF THE PROGRAM 
s 3; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
62 002156 ‘ BGNSW SFPTBL 

002156 000004 -WORD 110001-L$SwW/2 

002160 L$Sw:: 

002160 SFPTBL:: 
64 002160 000000 TRANSTST:: eWORD 0 ; ENABLE TEST OF a alelan IF =1 
65 002162 000000 NOITS:: eWORD 0 : INHIBIT ITERATION OPTION. 
66 e eee a ITERATE 
67 3 «NZ = INHIBIT ITERATE. 
68 002164 000017 LERRMAX:: ~ WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
69 002166 000310 GERRMAX: : eWORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
70 002170 ENDSW 

002170 L10001: 


1 
72 002170 ENDMOD 


mm iO ee ee 





TSV3 = GLOBAL AREAS 
SOFTWARE P-TABLE 


Whonornnernnrnn fluo 
WOO Orr Uvroe SOOWeOnN 
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TITLE TSV3 = GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 
BGNMOD TSV3 
TSV3:: 
-SBTTL GLOBAL EQUATES SECTION 
r++ 


: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 


EQUALS 3 GET STANDARD EQUATES. 

3; BIT DIFINITIONS 
BIT15== 100000 
B1T14== 40000 
BIT13== 20000 
BIT12== 10000 
BIT11== 4000 
B1T10== 2000 
BITO9== 1000 
B1TO8== 400 

1T07== 200 
B1T06== 100 
B1TO5== 40 
B1T04== 20 
BITO3== 10 
BITO2== 4 
BITOI== 2 
B1T00== 1 
BIT9== BITOI 
BiT8== B1T08 
BIT7== BITO7 
BIT6== BITO6 
BiTS== BI1TOS 
BIT4== BITO4 
BIT3== BIT03 
BIT2== BITO2 
BITi== BITOI 
BITO== B61T00 


FLAG_DEFINITIONS 


== 32 : 


31. : 


28. 3 


30. : CONTI COMMAND WAS IS 
2 ; A NEW PASS HAS BEEN STARTED 


EVENT 
:  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
ONT INUE SUED 
A POWER-FAIL/POWER-UP OCCURRED 








34 
35 002170 


TSV3_= GLOBAL AZEAS 
GLOBAL EQUATES SECTION 


000250 


172516 
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: PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PR1I06== 300 
PRIOS== 240 
PR1I04== 200 
PRIO3== 140 
PR1I02== 100 
PRIO1== 40 
PRI00== 0 
OPERATOR FLAG BITS 
EVL== 4 
LOT== 10 
ADR== 20 
1DU== 40 
I1SR== 100 
== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IXE== 400 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


KT11 
~SBTTL MEMORY MANAGEMENT DEFINITIONS 
paxrii =o ADDRESS 


EC= 
z*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 
SR1= 177574 


SR2= 177576 
a 172516 
s*USER ‘‘I*’ PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 
UIPDRI= 177602 
UIPCR2= 177604 
UIPDR3= 177606 


UDPDR7= 177636 


SEQ 0022 


DEFINE MEMORY MANAGEMENT REGISTERS 
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MEMORY MANAGEMENT DEFINITIONS SEQ 0025 


~ENDC 
s*USER ‘‘I*’ PAGE ADDRESS REGISTERS 
PARO= 177640 


IF NB 4 
3*SUPERVISOR ‘‘I** PAGE DESCRIPTOR REGISTERS 
SIPDRO= 172209 
SIPDRI= 172202 . 

SIPDR2= 172204 


SIPDR3= 172206 
SIPDR4= 172210 
SIPDRS= 172212 
SIPDR6= 172214 
_ 172216 
s*SUPERVISOR ‘'D’’ PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 
DPDRI= 172222 
SDPDR2= 172224 
SDPDR3= 176666 
SDPDR4= 172230 
SDPDRS= 172232 
SDPDR6= 172234 
SDPDR7= 172236 


-ENDC 
z*SUPERVISOR *‘I’’ PAGE ADDRESS REGISTERS 
SIPARO= 1 


0= 172240 
SIPARI= 172242 
SIPAR2= 172244 
SIPAR3S= 172246 
SIPAR4= 172250 
SIPARS= 172252 
SIPAR6= 172254 
i" 172256 
s*SUPERVISOR ‘'D’’ PAGE ADDRESS REGISTERS 
SDPARO= 172260 
SDPAR1= 172262 

1722 
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MEMORY MANAGEMENT DEFINITIONS 


WWW 
QAeNO ~m 
x 
i) 

J 
Zz 
= 
“ 

Se 


2322 


a a a a ae 
ANN NNN 
&* 
ARNVOALVNG 
x 
ro 
s 
S 
anne 


-IF NB 
3*KERNEL ‘'D** PAGE ADDRESS REGISTERS 
DPARO= 1 


ee ee ey 
ANN NNN 
MoNoNoNoNoNNINY 


SEQ 0024 





SV3_= GLOBAL AREAS 
T$¥05 REGISTER AND PACKET DEFINITIONS 


40 

41 

4 

4 

ha 

) 

46 

47 06 

48 177560 

49 177562 

50 177520 

51 

52 

53 

54 

55 

56 100000 

57 04 

58 020000 

59 010000 
004000 

63 002000 

62 001400 

63 0002 

64 000100 

65 000060 

66 000016 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 00000 

77 040000 

78 020000 

79 010000 

80 £04000 

81 002000 

82 001000 

83 000400 

84 000200 

85 000100 

86 000040 

87 000020 

88 000010 

89 000004 

90 000002 

91 000001 

92 

93 

94 

95 

96 
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~SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 


> SOME GENERAL EQUATES. 


ERRVEC== 4 ‘ POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
TTIVEC== 60 : INTERRUPT VECTOR FOR CONSOLE INPUT 
ICSR== 177560 : BUS ADDRESS OF CONSOLE INPUT 
TTIBFR== 177562 : CONSOLE INPUT DATA BUFFER 
BDVPCR== 177520 : BDV11 PAGE CONTROL REGISTER 


3+ 
sBIT DEFINITIONS FOR TSSR REGISTER 


sc= BIT15 :SPECIAL CONDITION 

BIE= BIT14 BUS INTERFACE ERROR 

SCE= BIT13 ;SANITY CHECK ERROR 

RMR= BITI2 : FICATION R D 

— B1T11 sNONEXISTANT MEMORY ERROR 
81710 NEED BUFFER ADDRESS 

NIADDR= BIT9!BITS 7 EXTENDED agate BITS 

SSR= BIT? SUB SYSTEM READ 

OFL= Bite sOFF LINE 


NE BIT 
sFATAL TERMINATION ERROR CODES 
TERMINATION CODES 


FATERR= BIT4!B1TS 
TERCLS= BIT3!61T2!81T1 


+ 


B11 DEFINITIONS FOR EXTENDED STATUS REGISTER 0 


XSOTMK= BIT15 TAPE MARK DETECTED 
XSORLS= BIT14 RECORD LENGTH SHORT 
XSOLET= B1T13 sLOGICAL END OF T 
XSORLL= BIT12 2RECORD ng LONG 
XSOWLE= B1T11 WRITE LOCK ERR 

ONEF= B1T10 NON EXECUTABLE FUNCTION 
XSOILC= BIT9 ZILLE Cc 
XSOILA= BIT8 ILLEGAL ADDRESS 
XSOMOT= BIT? sTAPE IN MOTI 
XSOONL= BIT6 3 TRANSPORT ON LINE 
XSOIE= BITS : INTERRUPT ENABLE 
XSOVCK= BIT4 VOLUME CHECK BIT 

pres BIT3 sPHASE ENCODED DRIVE 
XSOWLK= Bite 3WRI TE LOCKED 
XSOBOT= BIT! SBEGINNING OF TAPE 
XSOEOT= B1TO END OF TAPE 


DEF INE TIONS FOR EXTENDED STATUS REGISTER 1 


SEQ 0025 











TSV3_= GLOBAL AREAS 


38 100000 
99 040000 
100 20000 
101 017375 
102 00 
103 000002 
104 
105 
106 
107 
108 
109 100000 
110 040000 
111 035400 
112 002000 
113 000200 
114 000100 
115 000077 
116 000007 
117 
118 
119 
120 
121 
122 177400 
123 000200 
124 000100 
125 0004 
126 000020 
127 00001 
128 00 
129 000001 
130 
131 
132 
133 
134 
135 100000 
136 0000 
137 020000 
138 7400 
139 377 
140 
141 
142 
143 
144 
145 
146 
147 
000006 


000006 
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TSVOS REGISTER AND PACKET DEFINITIONS 


SEQ 0026 

X1.DLT = BIT15 sDATA LATE 
X1.SPARE= BIT14 re tay 
X1.COR = BITI3 TABLE _DATA 

-MBZ = B11120B1711+B11{0vB1T99BI T7961 T6sB1 15981 T6+B1TS9BIT2B1T0 : zALWAYS 0 
X1.RBP = BITS READ BUS PARITY ERR 
X1.UNC = BIT1 SONCORRECTABLE DATA OR HARD ERROR 
3+ 
21 e : seautiaed FOR EXTENDED STATUS REGISTER 2 
X2.0PM = BITI5 OPERATION IN Ansa (TAPE MOVING) 
X2.RCE = BIT14 ;RAM CHECKSUM ERR 
X2. SPARE= B1T13+B1T12+B1111+BIT9+B1T8 NOT USED BY TSVOS (ALWAYS=0) 
2.WCF = B1T10 WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
X2.EXTF = BIT? :IF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
X2.BUFE = BIT ZF pray BS CHAR CMD THEN = BUFFERING ENABLED 
X2.REV_ = 00007 1F WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BITosBITI4BIT0" :IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 


3+ 
13 haat FOR EXTENDED STATUS REGISTER 3 


X3.MDE = 177400 sMICRO“DIAGNOSTIC ERROR CODE 
X3.SPARE= B1T7 sNOT USED BY TSVO5 

X3.0PI =8 3 OPERATION INCOMPLETE 

X3.REV = BITS 3REVERSE 

X3.TRF = BIT4 TRANSPORT RESPONSE FAILURE 
X3.DCK = BIT ;DENSITY CHECK 

3.MBZ =B1T2+B1T1 sNOT USED ALWAYS 0 

X3.RIB = BI REVERSE INTO BOT 


3+ 
a ee FOR EXTENDED STATUS REGISTER 4 


K4.HSP = BIT15 :HIGH SPEED 

eRCE = BITI4 RETRY COUNT EXCEEDED 

; = BIT13 ANSPORT SPECIAL MODE 
X4.MBZ = B11 129611119811 10val 9eB1T8 :NOT USED ALWAYS 0 
X4.WRC = 000377 WRITE RETRY COUNT FIELD 


s+ 


[TSSR TERMINATION CODES (BIT 0-2) 


TSREJ= 3*2 COMMAND REJECTED 
UNREC= 6 2 UNRECOVERABLE ERROR 


sDEVICE REGISTER OFFSETS 


} 
} 
Se eee 


uvu- 





TSV3_= GLOBAL AREAS 
TSVOS REGISTER AND PACKET DEFINITIONS 


_! 


at Sis HS 


G9 G0 00 OO Co ~N NNN NNOAAAAO QUmnnuw 
AV LESRUEARAVSS SSVSAARANISSRISALATLSSSLSAL 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


94 
95 
96 
97 
98 
99 
200 
201 


000003 
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TSBA== 0 

TSDB== 0 :TSDB/TSBA REGISTER 

TSBAH== 1 

TSDBH== 1 :TSOB/TSBA REGISTER HIGH BYTE 
TSSR== ¢ :TSSR REGISTE 

TSSRH== sTSSR REGISTER HIGH BYTE 


_TSDB ADDRESS BIT DEFINITIONS 
A716 = BIT1+B1T0 sADDRESS BITS 17:16 ARE IN 1:0 


COMMAND DEFINITIONS 


P.GETSTAT = 17 3GET_ STATUS 

P.INIT = 13 s INITIALIZE 

P. CONTROL = 12 : CONTROL COMMANDS 

P. FORMAT = 11 3 FORMAT 

P.POSITION = 10 POSITION 

P.WRTSUB = 6 ; SUBSYSTEM WRITE 
P.WRITE = 5 

P.WRTCHAR = 4 TWRITE CHARACTERISTICS 
P.READ = 7 2READ 


COMMAND PACKET HEADER WORD BIT DEFINITIONS 


P.ACK = BITIS BUFFER AVAIL FOR CONTROLLER 
P.CVC == BIT14 CLEAR VOLUME CHECK 
P.OPP = = BIT13 ;REVERSE SEQUENCE OF DATA BITS 
P.SWB = BITI2 BYTES Y 
P.MODE = BIT11! pirto:e1f9ieir8 sEXTENDED COMMAND MODE FIELD 
P.IE = B1T7 RRUPT ENABLE 
P.FMT= BIT6!B1TS :PACKET HEADER siete (ALWAYS=0) 
P.CMD = 37 MAJOR COMMAND FIELD 

3+ 

: CONTROL COMMAND MODE CODES 
PC.RELEASE = 0*256. sRELEASE BUFFER 
PC.REWIND = $3528 3REWIND 
PC .NOOP = 2*256. :NO-OP 
PC. IEREW = $3520- sREWIND IMMEDIATE INTERRUPT 
PC.ERASE = 5*256. SECURITY ERASE 


i+ 
3 CONTROLLER 8AM DEFINITIONS 


RMCHBES = 167 s CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
RMCHEND = 200 s CHARACTERISTICS 10 DATA END RAM ADDRESS 
RMPKTBEG= 201 3 PACKET BEGIN RAM ADDRESS 
essbone 210 D KET END RAM ADD 

RMMSGBEG= 215 sMESSAGE BUFFER BEGIN RAM ADDRESS 
RMMSGEND= 234 MESSAGE BUFFER END RAM ADDRESS 


SEQ 0027 
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wm 
wD 


TSsvO 


7 


NMONMQIPINEMPYIPIPPOPPoTNy 
— oe ot od 8 ed 
NOU SWI 


rr 
O00 


000002 
000004 
000006 
000010 


000200 
000100 
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EGISTER AND PACKET DEFINITIONS 


SEQ 0028 


TREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


XSTO== 6 sEXTENDED STATUS REGISTER 9 (WORD 4) 
XSTi== 8. EXTENDED STATUS REGISTER 1 (WORD 5) 
XST2== 10. sEXTENDED STATUS REGISTER 2 (WORD 6) 
XST3== 12. sEXTENDED STATUS REGISTER 3 (WORD 7) 
XST4== 14, sEXTENDED STATUS REGISTER 4 (WORD 8) 


PKLOW =2 LOW ORDER CHARACTERISTIC DATA POINTER 
PKHI = 4 HIGH ORDER CHARACTERISTIC DATA POINTER 
PKBCNT = 6 NUMBER OF BYTES IN DATA PACKET 
EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 


of 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO =0 sBYTE 0 
BSEL1 =1 sBYTE 1 
SEL2 =2 WORD 2 
SELDATA = 4 sWORD 3 


3+ 
sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


PW.NOP = 0 3NO-OP 
PW.RDRAM =1 sREAD RAM 
PW.WTRAM =2 WRITE RAM 
PW.RFIFO = 3 sREAD FIFO 
PW.WFIFO = 4 WRITE Biva 
PW.RDSTAT = 5 :READ STATUS 
eWCTL = 6 WRITE TAPE CONTROL 
PW. WFMT =7 SWRITE TAPE FORMAT 
PW. WMISC = 10 WRITE MISCELLANEOUS 
PW. WNPR = 11 sWRITE NPR CONTROL 
PW.D22 = 20 2D0 MICROTEST 22 
PW.D11 = 21 3D0 MICROTEST 11 
PW.D13 = 22 3D0 MICROTEST 13 
PW.NO1311 = 23 DISABLE MICROTEST 11 AND 13 
PW.RDEXT = 24 sREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 


i BSEL1 CODES FOR WRITE TAPE CONTROL 


ic. IAD = BIT7 ZIFAD = FORMATTER ADDRESS 
WC. 1OTAD BIT6 ZITADO = TRANSPORT ADDRESS BIT 0 
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TSVOS REGISTER AND PACKET DEFINITIONS SEQ 0029 
268 060040 WC.11TAD = BITS ZITAD1_ = TRANSPORT ADDRESS BIT 1 
269 000020 WC. ISRESV = BIT4 SIRESVS = RESERVED #5 
270 000010 WC. IREW = BIT3 ZIREW = REWIND 
271 00004 . WC. IRWU = BIT2 :IRWU = REWIND AND UNLOAD 
272 000002 WC.IFEN = BIT1 sIFEN = FORMATTER ENABLE 
273 000001 wC.1G0 = BITO 60 
274 
275 3+ 
376 7BSEL1 CODES FOR WRITE FORMAT 
278 000200 WF .IHISP = BIT7 ZIHISP = HIGH SPEED 
279 000100 WF. IWRT = BIT6 ‘IWRT = WRITE 
280 00004 WF. IREV = BITS sIREV = REVERSE 
281 000020 WF. 1WFM = BIT4 sIWFM == WRITE FILE MARK 
282 00001 WF. IEDIT = BIT3 sIEDIT = EDIT 
283 000004 WF . IERASE = BIT2 TIERASE = ERASE 
284 000002 WF. 13RESV = BIT1 TIRESV3 = RESERVED #3 
285 000001 WF. 14RESV = BITO ZIRESV4 = RESERVED #4 
oes 
289 BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 
291 000200 MS.EXT = BIT? sINVERT SENSE OF EXTENDED FEATURES SWITCH 
292 000020 MS.RSFIFO = BITS ZRESET FIFO AND INPUT PARITY ERR 
293 000010 MS.RSTAPE = BIT3 SRESET TAPE STATUS IN 2 FLIPeELOSS” 
29% 000006 MS.ATTN = BIT2!B1T1 SATTENTION TRIGGER FIELD 
298 000001 MS.RSD = BITO [RESET TIMER A,B THEN DELAY TIMES IN SEL2 
3+ 
297 * MS.ATTN SUBCODES 
299 000000 MSA.NOP = 0*2 ZNO-OP (NOTHING TRIGGERED) 
300 000002 MSA.VOL = 1*2 Hp ay gh E ON-LINE/OFF-LINE TRANSISTION 
301 0000 MSA.NRAM= 2%2 ORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
302 0 : MSA.FRAM= 3%2 FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 
304 : WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 
306 000200 NP.IR = BIT? ZINTERRUPT REQUEST (0-1 TRANSITION) 
307 000100 NP.OUT = BIT6 STAPE DATA DIRECTION OUT (= IN) 
308 000040 NP. LOOP = BITS TENABLE TRANSPORT LOOPBACK 
309 000020 NP. WRP = BIT4 ‘WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 
311 3 READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
313 s 
314 000200 $2.D1M = BIT7 :WORD #9 BYTE 2 DATA IN MISS 
315 000100 S2.1LW = BIT6 ; ILw H 
316 000040 $2. OUTRDY = BITS : OUT RDY H 
317 000020 $2. INRDY = BIT4 : IN RDY H 
318 000010 S2.ATIMR = BIT3 ; TIMER A FLAG H 
319 000004 $2.BTIMR = BIT2 ; TIMER B FLAG H 
320 000003 52. UNDEF = BIT1+B1T0 + (UNDEF INED) 
321 100000 S1.PARIN = BIT15 :WORD #8 BYTE 1 PARIN H 
322 040000 $1. 12RESV = BIT14 IRESV2 
323 020000 $1.1 1RESV = BIT13 ; IRESV1 
324 010000 $1. IEOT = BIT12 ; IEOT 


(74) 
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o— 
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z79 

23 

reer errrorrszs 
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DAT NH 


;WORD #8 BYTE 0 


o-um 
m 
= 
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oooooo°oo}—-— = 
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at beg be ne he ne ae eee en ee we 
AAA ts 
CO-—NWWLUANOO- = 
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343 
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vw 
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-SBTTL SPECIAL MACROS AND OPDEFS. 


3+ 
sSAVE GENERAL REGS 1 TO 5 


-MACRO SAVREG 
JSR RS ,REGSAV 


3+ 

3 _MACRO TO FORCE AN ERROR 

“MACRO FORCERROR TAG,NOTSSR 
“TIE NOF LISTALL, .NLIST 


-IF B NOTSSR 
MOV TSSR(RS),R1 sREAD TSSR 
-ENDC 


MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG 2BR IF YES 

eNLIST 

= 6 nad LISTALL, .LIST 


- ENDM 


" MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
: WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
: SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
: FORCER TO 177777 

; TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
“MACRO FORCEXIT TAG 

.1IF NDF LISTALL, .NLIST 

LIST 


MOV FORCER,FORCER ;1S FORCER NEGAT’YE? 
BMI TAG sBR IF YES 


«NLIST 
sh LISTALL, .LIST 


; MACRO TO INCREMENT ERROR COUNTS 
“MACRO NEXT. ERRNO 
i33e11F NDF LISTALL, .NLIST 
ERRNO=ERRNO+1 
eFeetlF NDF LISTALL, .LIST 
-LIST 
;ENDM 


s+ 


SEQ 0031 
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sMACRO TO PERFORM XOR 


-MACRO XOR A.B 
MOV 


A,=(SP) 
BIC B, (SP) 
BIC A.B 
BIS (SP)+,B 
-ENDM 


EN=0 INITIALIZE ERROR NUMBER 
-SBTTL FORCER = FORCE ERROR FLAG 


; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 


‘See ie MACRO “‘IFER 


FORCER:: 0 FORCE TYPE ALL HARD ERRORS (THE as CALLED ° 
ROR’). AN ERROR NEED NOT 
; + EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


SEQ 0032 
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435 002172 
434 002174 


460 002460 
461 002624 
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SEQ 0033 
«SBTTL GLOBAL DATA SECTION 


p++ 
:THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 


:IN MORE THAN ONE TEST. 


[THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 


EPRTSW:: 
UNITN:: 


~ 


2 


o 


ooooooo-0o 


Ss 


oo 
So 


sPRINT SWITCH 

[UNIT # UNDER ert ST. 

SQUICK VERIFY FLAG. 

ADDRESS OF CSR FOR CURRENT DEVICE 
INTERRUPT VECT Srey 

zs INTERRUPT PRIORIT 

NUMBER OF TESTS RUN IN THIS PASS 


NUMBER OF DE ER TEST 
sSET IF FATAL ERROR IS DETECTED IN TEST 

sSET IF TAPE INTERRUPT WAS RECEIVED 

3 EXTENDED FEATURES SOFTWARE Sw O=OF F ; 1=0N 

ER ENABLE SWITCH SW O=OFF;1=0N 

TEXPECTED RAM DATA FOR PRAMPKT ROUTINE 

:RECEIVED RAM DATA FOR PRAMPKT ROUTINE 
HIGH ADDRESS MEMORY ERROR : 
:LOW ADDRESS MEMORY ERROR ” 
sDATA READ 4 al on PACKET OR MESSAGE BUF AREA 
RAM DATA SIZE FOR PRAMPKT ROUTINE 
“RECEIVED BUFFER HIGH ADDRESS 

RECEIVED ae LOW ADDRESS 

s TEST 2 TTERN 

TEST DAT 


3 TEST FLAG WORD 
i TSTBLK POINTER 


sPRINT ROUTINE TEMP 

EXPECTED MESSAGE BUFFER DATA 
sRECEIVED mee BUFFER DATA 
;TEMPORARY STORAGE FOR PRINT 


Ba 
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= TEST DATA TABLE 





-SBTTL TSTBLK = TEST DATA TABLE 


+ 


[THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
SIN SEQUENCE THE DATA IS: 


ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 


TSTBLK:: 


-WORD 0 sALL ZEROS 

WORD 177777 sALL ONES 

WORD BI1TO sDATA FOR WALKING ONES 
WORD 61T1 

WORD BIT 

-WORD BIT 

-WORD BIT4 

WORD BITS 

-WORD BIT6 

WORD BIT? 

WORD BI1T8 

- WORD 19 

WORD 861T10 

eWORD BIT11 

«WORD BITI2 

«WORD BIT13 

WORD BIT14 

WORD 861T15 

WORD “*CBITO sDATA FOR WALKING ZEROS 
eWORD “CBITI 

«WORD “CBIT 

-WORD “CBIT 

WORD “CBIT4 

-WORD *CBITS 

-WORD “CBIT6 

WORD *CBIT7 

-WORD *CBITS 

WORD “*CBIT9 

-WORD “*CBITIO 

WORD “*CBIT11 

- WORD orsinié 

-WORD “CBIT1 

WORD “CBIT1I4 

«WORD 1Sebes° 

WORD 125 36 sALTERNATING ONES, ZEROS 
-WORD 05252 sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


TBLEND==, 








518 

519 

359 

353 003054 
538 

3 

525 

526 

S27 003104 
359 003106 
580 

531 003110 
532 003112 
533 003114 
534 003116 
535 003120 
536 003122 
537 003124 
538 

539 

540 003126 
541 003130 
542 003132 
543 003134 
544 003136 
545 003140 
546 003142 
547 003144 
548 003146 
549 003150 
550 003152 
551 003154 
236 003156 
553 003156 
554 093160 
555 003162 
556 003164 
557 003166 
558 003170 
559 

560 

561 

56 

56 

564 

565 

566 

567 

568 003170 
Fs 44 003370 


570 
571 003372 
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J 3 
SEQ 0035 
.SBTTL GLOBAL ENVIRONMENT STORAGE 
j STORAGE FOR DEVICE REGISTERS 
DUMMY: 0,100000,0,0 _ ;DUMMY DEVICE REGISTERS... 


sEND OF MEM TABLE. 


0;0,0,0,0,0,0,0 
teeeFOR MULTI-UNIT CHECKOUT. 
i 
DUFLG:: .WORD 0 :“DROPPED UNIT" FLAG. = 
SINHIBITS CODE IN ‘'CLEAN-UP**. 
NODEV: : .WORD 0 [FLAG TO SAY NO DEVICE. 
TEMP1:: .WORD 0 ;SOME TEMP LOCATIONS. 
TEMP2: : “WORD 0 
XXCOMM: : “WORD 0 zXXDP+ COMM BLOCK POINTER. 
FREE: : “WORD 0 31ST AfREE MEMORY ADDRESS... 
ESI2:: “WORD 0 AND SIZE (IN WORDS). 
FREEHI: .WORD 0 LAST wor” IN FREE SPACE 
LG .WORD 0 KTI1, MEM AVAIL FLAG, - 
t= .WORD <24K OR NO KT - 
z~ NZ = >246K AND 
KTENABLE:: .WORD 0 'SET BY TEST ROUT INES TO FLAG >28K UNDER TEST 
NXMFLG: : “WORD 0 [SET IF WE CAN TEST CLEARED OTHERWISE 
NXMLO: : “WORD 0 NxM LO ADORESS BIT 
NXMAI:: “WORD 0 [NXM HI ADDRESS BITS FOR DAL'S 16-21 
T23A:: “WORD 0 :11/23A FLA 6 
reeves eWORD O 311/238 FLA 
T3BFLG: “WORD 0 :TEST 38 F hes « 
PST32W: “WORD 2000 i532 BLOCK ADDRESS FOR 32K START 
SIFLAG: “WORD 0 
BADDAT: “WORD 0 SACTUAL DATA 
GDDAT:: “WwORD 0 SEXPECTED DATA 
LOOPFL: [WORD 0 
CTAB: : CONFIGURATION TABLES. 
CTABM: : .wORD 0 [CONFIG WORK. 
“WORD 0 
“WORD 0 
“WORD 0 
“WORD 1 
CTABE:: , 
SERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 


: 0 : UNIT NOT TESTED 

: 10 2 UNIT ONLINE, NO ERRORS 

: 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

: 160000 = UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 
; 160001 = UNIT DROPPED. NOT IDLE A 

; 14XXXX = UNIT DROPPED. ENCOUNTERED. A ERRORS 
ERTABL: .BLKW 64. 

ERTABE : : 0 

SKIPT: .WORD 0 71=SKIP SUBTEST O=NO SKIP OF SUBTEST 
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573 -SBTTL GLOBAL TEXT MESSAGES 
575 :" TH HE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
576 Bete ge Af aah oar Test. INFORMATION THAT ARE USED IN 


577 3; MORE T 
79 


3+ 
ty sNAMES OF DEVICES SUPPORTED 


5 
586 003374 DEVTYP <TSV05> 
003374 LSDVTYP:: 
003374 124 123 126 eASCIZ /TSVOS/ 
EVEN 
587 
608 


3+ 
sTEST DESCRIPTION 


611 003402 seeaee DESCRIPT <#xe* TSVOS LOGIC DIAGNOSTIC - CHECK TRANSPORT IF ERROR *###> 
003402 052 052 052 “ASCIZ /*ee* TSVOS LOGIC DIAGNOSTIC = CHECK TRANSPORT IF ERROR *ee0/ 
613 
614 
615 
616 i+ 
61? 3BIT TO ASCII CONVERSION FOR TSSR REGISTER 
619 ? 
620 003476 003536 003541 003545 TSSRBIT:: -WORD 1$,2$,3$,4$,5$,6$. 
621 003516 003577 003603 003607 <WORD 9$.10$,11$,12$,13$ 375288 15$,16$ 
622 003536 123 103 000 1$: eASCIZ "SC 
623 003541 102 111 105 28: -ASCIZ "BIE" 
624 003545 123 103 105 3$: eASCIZ "SCE* 
625 003551 122 115 122 4$: -ASCIZ ‘RMR 
626 003555 116 130 115 5$: eASCIZ "NXM* 
627 003561 116 102 101 6$: eASCIZ ‘NBA 
628 003565 102 111 124 7$: eASCIZ BITS" 
629 00357, 108 111 124 8$: -ASCIZ ‘BITB* 
630 003577 12 123 122 9S: eASCIZ 'SSR* 
00 117 106 114 10S: eASCIZ "OFL® 
00 102 111 124 11$: -ASCIZ ‘BITS* 
633 003614 102 111 124 12$: eASCIZ "BITS" 
34 003621 102 111 124 138: eASCIZ *BIT3* 
635 00362 102 111 124 14$: eASCIZ ‘BIT2° 
36 00363 102 111 124 15$: eASCIZ ‘BITI° 
637 003640 102 111 124 16$: “ASCIZ *BITO" 
639 003646 124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT® 
640 003701 124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
003734 040 040 116 NXR:  .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
642 003773 045 101 040 WXRX: .ASCIZ /%A ADDRESS: 
643 004014 045 101 040 TSSX: .ASCII /%A TSBA,TSSR OxP'D: %06%A, 3062N/ 
644 004054 045 101 040 eASCIZ /%A TSBA,TSSR REC'D: %06%A,%06/ 
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GLOBAL TEXT MESSAGES 


RRRRRRRE 

SOOUSOUSON 
SEFIA=—F=Ae 
VUVO=AUusU 


i=] 


So 


>>>>y >>>>> 
AnNMWNNM an 
A AAANAQN AAAAAQA AAO 


tea | op ll an han) an ban ban tittle: Len banlen lan lente: Ler ken) 
NNNNNNNNN NNN ONIN Be 


ON s£co-o— 


04 
04 
04 
04 
12 
04 
12 
12 
12 
10 
10 
04 
04 
04 


MUIR & &NONMMUMUTIU 
3-2 IO I 
— —3 =) 

BAAN |WWN 6 |] | Aw 
HHHLMNNN (OM LL LO 
MUVINI SWI WO Mooe 


SEQ 0037 


2NZA/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 
ASCII /ZNZA/ 


7 NO INTERRUPT WAS GENERATED/ 
/_ INTERRUPT FAULT/ 

/%A,_ CPU PC: 306%A TSBA: 206/ 

/ ‘BUSSINIT™. DIDN'T INITIALIZE CONTROLLER/ 
4 “SOFT=INIT*" DIDN'T INITIALIZE THE DPU/ 

7 “BUS@RESET” DIDN'T INITIALIZE THE DPU/ 


4/ 


2N/ 

/%A_EXP'D: %062A REC'D: %06/ 

7INTA EXP'D: Z06%A, ZO6ENZA REC'D: ZORA, %06/ 

/%A REG(W) WRITTEN TO: %062%A REG(R) READ; EXP* D: Z06ZA, REC'D: %06/ 
eASCIZ ‘RAM Con — Do Not Match Packet Sent’ 

/ CONFIG DOESN'T MATCH tA MAST ER/ 

‘WRITE CHARACTERISTICS Failed’ 

*TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
*TSSR Incorrect After READ Comm ms More Bits Set Than SSR’ 
"FATAL ERROR IN SUBTEST = CHECK TAPE,CABLES, TRANSPORT etc.’ 
ERROR IN SUBTEST = WRITE DATA RETRY 4h uines FAILED® 
"ZENZA «eee% NO NXM A Sean Fissie ork TEST NXM TIMEOUT. *#2eeZN’ 
"ZNZA teeeeennnnaaaaeee 11/23A SYSTEM lh 5 sewn 0 Var ee 
"ZNZA teeenenaanananene 11/238 SYSTEM ekakkkekakaneneaaZny® 








006006 
006010 
006012 
699 006016 


TSV3_= GLOBAL AREAS 
GLOBAL ERROR REPORT SECTION 


104423 


005727 
000000 
001402 
004777 
012746 
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003106 
003773 
090002 


000006 
005764 


177770 


004524 
000001 


000004 


~SBTTL GLOBAL ERROR REPORT SECTION 


ie 


3 THE hat ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
ARE USED IN MORE THAN ON 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


3; CALLS THAT 


BGNMSG NXRERR 


NXRERR: : 
" PRINTX #NXRX ,NODEV sNODEV = NEXM ADDRESS. 
MOV NODEV,-(SP) 
MOV #NXRX , = (SP) 
MOV #2,-(SP) 
MOV SP RO 
TRAP CSPNTX 
ADD #6,SP 
JSR PC EXTEND 3; PRINT EXTENSION IF REQUIRED. 
ENDMSG 
L10002: 
TRAP CSMSG 


; THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
; TO ANY OF THE ABOVE ERROR SIGNATURES. 


EXTEND: TST 
EXTA: 0O 


JSR 
1$: PRINTX 


(PC)+ 
1s : 0 = NO EXTENSION. 
PC ,@EXTA ; APPEND EXTENSION TEXT. 
#NULCR ; PRINT A BLANK LINE 
#NULCR,=(SP) 
#1,-(SP) 
SP-RO 
C x 
#4,SP 
PC 


sNON-EXISTANT DEVICE REGISTER. 


SEQ 0038 





a 
$ 


ah he a a et 


QAQUmiuvmn & & 
Of fSNVOAO 


SENS 


ssssssese 
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012746 
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006473 
000002 


000006 
016124 
006713 
000001 
000004 


001476 
002624 
003476 


000054 


002624 
006664 


177777 


-SBTTL PRITSSR = PRINT TSSR CONTENTS 
i+ 
ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
STHE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
SINPUTS: 
: R1 CONTENTS OF TSSR 
SUBORDINATE ROUTINES: 
CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


PRITSSR: 
SAVREG sSAVE GENERAL REGISTERS 
1,R4 SAVE 


MOV R1,R : THE TSSR_ CONTENTS 
PRINTB 9 #TSSRFOR,R4 PRINT THE CONTENTS OF TSSR 
MOV R4,-(SP 

MOV #TSSRFOR,=(SP) 


MOV #2,-(SP) 
MOV 


ADD ‘ 
MOV R4,RO :GET TSSR BACK FOR CHKAMB 
JSR PC. CHKAMB TARE CONTENTS AMBIGUOUS ? 
cS $ [BRANCH IF NOT 
PRINTX #AMBTSSR ‘SHOW CONTENTS ARE AMBIGUOUS 
V #AMBTSSR,=(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP oC 
ADD #4,SP 
5$: MOV R4.R3 :CONTENTS OF TSSR 
BIC SHEADDRIFATERR! TEKcL Se R3 pCLEAR ALL MULTIPLE BIT FIELDS 
BEQ 20$ :NO BITS S ARE 
MOV #TMPBFR,R2 : TEMPORAR stil I BUFFER 
MOV #TSSRBIT,RI ASCII EQUIVALENT OF BITS 
10$: TST R3 TREMAINING BITS TO CONVERT 
BEQ 15$ SBRANCH WHEN ALL ARE DONE 
CLC [CLEAR CARRY FOR SHIFT 
ROL R3 SSHIFT NEXT BIT TO CARRY 
BCC 13$ sBRANCH IF BIT S 
MOV (R1) RO :POINTER TO BIT DEFINITION 
11$:  MOVB (RO)+,(R2)+ :MOVE ASCIZ T 
BNE :MOVE ALL BITS 
MOVB 3s #", ,=1(R2) : INSERT A COMMA TO TERMINATE 
13$: TST (RiS+ :POINT TO NEXT DESCRIPTION 
BR 10$ 3GET THE REMA INING BITS 
15$:  CLRB- =(R2) : TERMINATE T 


HE LINE 
PRINTX #TSSDEF ,#TMPBFR ;PRINT THE BIT DEFINITIONS 
MOV #TMPBFR,=(SP) 
MOV #TSSDEF .-(SP) 


SEQ 0039 











006164 
006170 
006172 
006174 


ges ssssssszsssess 
a Bene 2 


=——VNo 
MEWWWER MOK 


$55 
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012746 
010600 
104415 
062706 


010403 
042703 
016303 


g 
Sy 
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2 
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S 
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000002 
000006 
177761 
006754 
006554 
000002 
000006 


177717 


007314 
006615 
000002 
000006 
176377 


006513 
000002 


wo 
eo ww 
AAAAAAD 


007017 007045 


208: 


25$: 


30$: 


TCOCOD: 


-EVEN 
- WORD 


#2,-(SP) 


R4, 
#*CFATERR,RS 
25$ 

R3 

R3 

R3 

TSF COD(R3) ,R3 
aT R3 


#6, 
#*CHIADDR,R4 
30$ 

#TEXASC ,R4 


R4,=(SP 
ATEXASC,=(SP) 
#2,~(SP5 
SP-RO 


CSPNTX 
#6,SP 
EPRTSW,R3 
R3 
R3,-(S5P) 
#1,-(SP) 


sGET THE TSSR_CONTENTS 


NATION 
TERMINATION CODE MEANING 
SPRINT THE TERMINATION CODE 


3TSSR CONTENTS AGAIN 
CLEAR ALL BUT FATAL TERMINATION 
:DON'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
GET THE FATAL TERMINATION CODE 
sPRINT THE FATAL TERMINATION CODE 


CLEAR ALL BUT aareeee ADDRESS 
;DON'T PRINT IF 
PRINT THE EXTENDED ADDRESS BITS 


sPRINT MEAASGE BUFFER ADDRESS 
sPRINT PROPER MESSAGE 


sRETURN TO CALLER 


*ENZA *eeeeCHECK TRANSPORT#eee8! 


A *ZNZA T 


to te 
NNN 


*ZNZA seeeeCHECK PARITY SWITCH IN TRANSPORT#**#®° 
TSSR = %06° 


*INZA Extended Address Bits = %06' 

*ZNZA Termination Class Code = 2T' 

"ZNZA Fatal Termination fess. Code = %T° 
"ZENZA TSSR Bits Set: ZT° 

"ZNZA TSSR Contents Are Ambiguous’ 


1$,28,3$,4$,5$,6$,7$,8$ 


————————— 


TS 
RE! 
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801 007314 
802 007324 
803 007360 


804 007371 
805 007435 
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Wing eo 
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So 
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"Normal Termination’ 

"Termination Condition’ 

"Tape Status Alert’ 

‘Function Reject’ 

*"Recoverable Error = Tape Position One Record Down’ 
*"Recoverable Error = Tape Was Not Moved' 
*Unrecoverable Error’ 

"Fatal Controller Error' 


1$,2$,3$,4 

jiteeteny ar Failure’ 
*Reserved' 

"Bus Interface or Sanity Check Error’ 
*"Reserved' 


TSV3 = GLOBAL AREAS 


33 


029 09 Co Co Co 09 G9 00 CO CD 
ce ce ee ee ee ed ed ed ed 
OWONAOUS wo 
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PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACK 


003126 


007632 
000003 


000010 


017376 


007574 
000003 


000010 


045 
045 


-SBTTL 


PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


i+ 
sTHIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
sTHIS ROUTING IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


PRIPKT:: 


10$: 


15$: 


rr 
We 
AOA 


PKTFRM: 
PKTADD: .A 


INPUT: 


eASCIZ 
SC1Z 
EN 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND PACKET ADDRESS 
ADDRESS OF COMMAND PACKET 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


RO,RS 
KTENABLE 
10$ 


R3 
R3,R1 
R4,RO 
RO 


R1 
#PKTADD ,R1,R4 
R4 ) 


R4,R1 
PC, SETMAP 
RO,R4 
(R4)+,R2 


#PKTFRM,R1,R2 
R2,=(SP5 


sSAVE THE REGISTERS 
zSAVE_NO. OF WORDS IN PACKET 
; ABOVE E 28k UNDER TEST? 


R_IF 
SET HIGH ORDER ADDRESS TO 0 
COPY HIGH prea ts ADDRESS 
GET LOWER ADDRESS 
s SHIFT BIT ie INTO C BIT 

AND INTO HIGH ORDER. 
SPRINT PACKET ADDRESS 


GET HIGH ORDER ADDRESS 
NOT ABOVE 28K. 


3BR IF 


sGET L& ORDER happine fe 
zSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
3GET RETURNED PAR6 ADDRESS BIAS 


WORD 
GET PACKET CONTENTS 
SPRINT THE DATA 


sNEXT WORD NUMBER 
sDONE ALL PACKET WORDS? 
LOOP TILL ALL DONE 


"ZNZA Packet Word #ZD1ZA = %06' 
"ZNZA Packet Address = %01%05° 





SEQ 0042 


- 
















E 
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PRIBXOR = PRINT EXPD, RECV AND XOR BYT SEQ 0043 Ck 


85 ~SBTTL PRIBXOR = PRINT EXPD, RECV AND XOR BYTE 
a * 
856 ZPRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
897 sTHIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
859 EINPUTS: 
860 Py j 
861 ; RI RECEIVED DATA 
a6 ; R2 EXPECTED DATA 
He OUTPUT: | 
o66 : RO XOR OF EXPECTED/RECEIVED DATA 
868 :- | 
869 | 
870 007670 PRIBXOR: : 
871 007670 SAVREG sSAVE THE REGISTERS 
872 007674 010203 MOV R2,R3 ZENPECT ED DATA 
873 007676 XOR R1,R3 sFORM THE EXCLUSIVE OR 
874 007706 012700 177400 MOV #°C<377>,R0 s3YTE MASK 
875 007712 040001 BIC RO,R1 SAVE LOW BYTE RECV 
876 007714 040002 BIC RO,R2 SAVE LOW BYTE EXPO 
877 007716 040003 BIC RO,R3 ;SAVE LOW BYTE X 
878 007720 PRINTB #XORBFOR,R2,R1,R3° sPRINT THE MESSAGE 
007720 010346 “OV R3,~(SP) 
007722 010146 MOV R1,=(SP) 
007724 010246 MOV R2,=(SP 
007726 012746 007752 MOV #XORBFOR,=(SP) 
007732 012746 000004 MOV #4,-(SP) 
007736 010600 MOV SP RO 
007740 104414 TRAP — C$PNTB 
007742 062706 000012 ADD #12,SP 
879 007746 010300 MOV R3,RO 3RO_HAS XOR ON RETURN 
880 007750 000207 RTS PC sRETURN TO CALLER 


116 045 XORBFOR: 





»ASCIZ 'ZNZA EXPD: %O3ZA RECV: %O3%A XOR: 203° | 




















PRIXOR = PRINT EXPD, RECV AND X 
886 - SBTTL 


‘+ 





4 
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PRIXOR = PRINT EXPD, RECV AND XOR 


R89 
890 {PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
891 :THIS ROUTINE 1S NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
&9 INPUTS: 
894 : 
895 ; R1 RECEIVED DATA 
896 : R2 EXPECTED DATA 
897 : 
898 SOUTPUT: 
300 : RO XOR OF EXPECTED/RECEIVED DATA 
902 a. 
903 
904 010020 PRIXOR:: 
905 010020 SAVREG :SAVE THE REGISTERS 
010024 010203 MOV R2,R3 S EXPEC TED 
907 010026 XOR R1.R3 [FORM THE EXCLUSIVE OR 
010036 PRINTS #XORFOR,R2,R1,R3 ;PRINT THE MESSAGE 
010036 010346 MOV R3,-(SP) 
010040 010146 MOV R1.=(SP) 
010042 010246 MOV R2,=(SP) 
010044 012746 010070 MOV #XORFOR,=(SP) 
010050 012746 000004 MOV #4,-(SP) 
010054 010600 MOV SP,RO 
010056 104414 TRAP  C$PNTB 
10060 062706 000012 ADD #12,SP 
909 010064 010300 MOV R3,R0 zRO HAS XOR ON RETURN 
910 010066 000207 RTS PC ‘RETURN TO CALLER 
g2 010070 116 045 XORFOR: “ASCIZ *ZNZA EXPD: %06%A RECV: %06%A XOR: %06° 


SEQ 0044 


PRIEQU 





29 010136 
30 010136 
931 010142 


947 010144 


010 
950 010172 
936 010174 


TSV3_= GLOBAL AREAS 
- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


000207 
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010174 
000002 


000006 


116 


045 


-SBTTL PRIEQU <= PRINT BIT NUMBERS AS ASCII EQUIVALENT 
+ 


ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


9 
: INPUTS: 
: RO OCTAL VALUE TO CONVERT 
: R1 TABLE OF POINTERS TO ASCII EQUIVALENT 
PRIEQU: 
SAVREG ZSAVE THE REGISTERS 
RTS PC [RETURN TO CALLER 


.SBTTL PRIRAM = PRINT RAM ADDRESS 
54 
[PRINT CONTROLLER RAM ADDRESS. 
ZTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


: INPUTS: 


: R4 RAM ADDRESS 


PRIRAM: 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
‘PRINT RAM ADDRESS IN ERROR 


MOV SP, 

TRAP CSPN 

ADD #6,SP 

RTS PC 2RETURN 


RAMF OR: ry "ZNZA CONTROLLER RAM ADDRESS = %06° 


.SBTTL PRIADD = PRINT MEMORY ERROR ADDRESS 
[PRINT MEMORY ADDRESS 
ZTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
> IMPLICIT INPUTS 


; ERRHI = HIGH ORDER ADDRESS 
: ERRLO = LOW ORDER ADDRESS 


SEQ 0045 
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PRIADD = PRINT MEMORY ERROR ADDRESS SEQ 0046 
966 3 
967 :- 
968 010236 PRIADD: 
969 0102 SAVREG sSAVE R1-R5 UNTIL NEXT RETURN 
970 010242 013700 002230 MOV ERRHI ,RO [GET HIGH ADDRESSS 
971 010246 013701 002232 MOV ERRLO,R1 sGET LOW ADDRESS 
ore 010252 010102 MOV R1,R2 ;COPY LOW A 
973 010254 006101 ROL R1 sSHIFT BIT 15 TO I 
974 010256 ROL RO Ba INTO HIGH ORDER 
975 010260 PRINTB #PRIAO,RO,R2 PRINT MEMORY ADDRESS IN ERROR 
010260 010246 MOV R2,-(SP) 
010262 010046 MOV RO,-(SP) - 
010264 012746 010306 MOV #PRIAO,-(SP) 
010270 012746 000003 MOV #3,-(SP) 
010274 010600 MOV SP ,RO 
010276 104414 TRAP CSPNT 
010300 062706 000010 ADD #10,SP 
ore 010304 000207 RTS PC RETURN 
A 010306 045 116 045 PRIAO: wot "ZNZA MEMORY ERROR ADDRESS = %01%05° 
368 -SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 
i 
984 
985 PRINT MEMORY ADDRESS 
oe6 ;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 
os : IMPLICIT INPUTS 
990 $ ERRHI = HIGH ORDER ADDRESS 
991 3 ERRLO = LOW ORDER ADDRESS 
992 3 
993 3= 
994 010352 PRITADD: 
995 010352 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
996 010356 013702 002230 MOV ERRHI ,R2 3GET HIGH ADDRESSS 
997 010362 013701 002232 MOV ERRLO,R1 sGET LOW apene ss 
998 MOV R1,R2 ;COPY LOW ADDRESS 
sROL R1 sSHIFT BIT 15 TO ba BIT 
1000 :ROL RO :SHIFT INTO HIGH ORDER 
1001 010366 PRINTB #PRITO,R1 *PRINT MEMORY ADDRESS LOW IN ERROR 
010366 010146 MOV P 
010370 012746 010434 MOV #PRITO,-(SP) 
010374 012746 2 MOV 7 
010400 010600 MOV ‘ 
010402 104414 TRAP CS$PNTB 
010404 062706 000006 ADD #6,SP 
1002 010410 PRINTB #PRIT1,R2 sPRINT MEMORY ADDRESS HIGH IN ERROR 
010410 p19¢e6 MOV 2,7(SP) 
010412 012746 010477 MoV #PRIT1,=-(SP) 
010416 012746 000002 MOV #2,-(SP) 
010422 010600 MOV P,RO 
010424 104414 TRAP CSPNTB 
010426 062706 000006 ADD #6,SP 
1003 010432 000207 RTS PC ;RETURN 









TSV3_= GLOBAL AREAS MACRO M1113 25-MAY-82 08:43 PAGE 26-2 
PRITADD = PRINT MEMORY TEST ADDRESS 


045 PRITO: .ASCIZ ‘ZNZA MEMORY TEST ADDRESS LOW = %06' 
045 PRIT1: yoy "ZNZA MEMORY TEST ADDRESS HIGH = %06° 


SEQ 0047 


SPACE 





SV3_= GLOBAL 

101 

1018 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

4 

102 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 010544 

1048 010544 

1049 010550 

1050 010556 

1051 010564 

1052 010566 

1053 010570 

1054 010574 

1055 010576 

1056 010602 

1057 010606 

1058 010614 

1059 01 

1060 010624 

1061 0106 

1062 010636 
0106 
010636 
010640 
ver) 
010632 


oo 
eb ob 


= 


o=— 

— 

So 

Ww 
WUWOoowo 
Nw 


z 
MmMrmor 
NWS 


oooo 
ot 
4 


28 
Ba6 


So 
= 
N 
Nm 
N 


& 
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000764 
140010 


010732 
100000 
010732 
000400 
010730 
000000 
016330 


000250 
002116 
177772 


010740 
010730 


010730 


AREAS 
= SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
-SBTTL SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


7+ 


ROUTINE H ISSUE A_ SPACE RECORDS 
; COMMAND (FORWARD OR REVERSE) 


INPUT: 
R3 NUMBER OF RECORDS TO BE SPACED OVER 
81T15 CONTROLS DIRECTION 
BIT1S = 0 IS FORWAR 
BIT1S = 1 IS REVERSE 
RS FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 
CARRY SET = SPACE RECORDS COMMAND OK 
CLR = SPACE RECORDS FAILED 
RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
TAPE HAS BEEN MOVED 
SIDE EFFECTS: 


SPACE:: 
SAVREG ZSAVE THE GENERAL REGISTERS 
MOV #500, SDELAY [SET UP DELA 
MOV 0010,80$ ‘SET UP COMMAND , SPACE FORWARD 
TST a0 SCHECK FOR DIRECTION 
BMI 5$ BR, IF REVERSE INDICATED 
MOV R3 90$ [LOAD UP NUMBER OF 
BR 760 DO COMMAND 
5$ BIC mais, R3 [CLEAR DIRECTION BIT 
aH #3178,80$ SSET REVERSE BIT 
10$: v #80$,R4 SET 
v R4, TSDB(RS) SEND gut c 
15$: JSR PC-WAITF WAIT FOR SSR 
BCS 0$ IF SSR IS SET AND Ok 
DELAY 250 :DELAY about -25 SECONDS 
MOV #250, (PC)+ 
. WORD 
MOV LSDLY, (PC)+ 
«WORD 


DEC ~6(PC) 
BNE ol 


RECORDS TO SPACE 


OF RECORDS TO SPACE 
T_IN COMMAND PACKET 
UP R4 WITH PACKET ADDRESS 
OMMAND 


SEQ 0048 


TS 


z 


ZESEE 


13 


a a ad td nd od 
oo 


3 = GLOBAL AREAS 


065367 
001367 





20S: 
25$: 


40$: 


60$: 
70$: 


MACRO M1113 25-MAY-82 08:43 PAGE 27-1 
RECORDS (FORWARD AND REVERSE) COMMAND 


=22(PC) 
SDELAY 


tS ead 


BUMP DELAY COUNTER DOWN 
thee 


BR, IF 


DELAY 
:BR IF TROUBLE CARRY = CLEAR 


EAD T 
SET e — 
sARE THEY 


BR, IF EQUAL = 
ieetvea 


EXIT 
T_CARRY NO TROUBLE 
CARRY CLEAR = 
sPASS PACKET ADDRESS 
RETURN 
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SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND SEQ 0050 


SPACKET FOR SPACE COMMAND 


1078 

1079 

1080 

1081 

1082 

1084 010730 .=<. 4108177770 

1087 “COMMAND WORD 

1088 010730 000000 seit 

1089 “NUMBER OF RECORDS TO BE SPACED OVER WORD 
1090 010732 000000 50s: «WORD 

1091 010734 000000 WORD 

1092 010736 000000 WORD 

1093 010740 000000 SDELAY: -WORD 0 :DELAY COUNTER 








OBAL 


3363 3° 


1 

1 

1 

1 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 010742 
1129 010742 
1130 010746 
1131 010752 
1132 010756 
1133 010762 
1134 010766 
1135 010770 
1136 010772 
1137 010776 
1138 011002 
1139 011006 
1140 011010 
1141 011014 
Hy 3 011016 
1143 011020 
1144 011022 
1145 011026 
1146 011030 
1147 011036 
1148 011040 
1149 011044 
1150 011044 
1151 011052 
1152 011054 


00 
00523 
ose76s 
005297 
00523 
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000010 
000200 
002220 
000100 
002222 


AREAS 
= WRITE CHARACTERISTICS COMMAND 


000012 


000012 


-SBTTL WRICHR = WRITE CHARACTERISTICS COMMAND 
:+ 


ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
; COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


t INPUT: 
R4 greens OF PACKET FROM TEST 
RS FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
OUTPUT: 
RO TSSR CONTENTS 
CARRY SET = WRITE CHARACTERISTICS COMMAND OK 


CLR - WRITE CHARACTERISTICS FAILED 
IMPLICIT OUTPUT: 


MESSAGE ath AND OTHER tte WALL SET UP 
chm viet HES SET AS FOLLOW 
TFEA = EXTENDED FEATURES PRESENT 
BENBSU = BUFFER ENABLE SWITCH ON OR OFF 


[SIDE EFFECTS: 


WRTICHR:: 
SAVREG ;SAVE THE GENERAL REGISTERS 
NBSW ZCLEAR BUFFER ENABLE SWITCH 
CLR EXTFEA ZCLEAR EXTENDED FEATURES Sw SWITCH 
10$: MOV R4, TSDB(RS) ‘SEND OUT COMMAND 
JSR PC. CHKTSSR SWAIT FOR SSR 
BCS 20$ BR, IF ssh IS SET AND Ok 
BR 60$ zBR IF TROUBLE CARRY = CLEAR 
20$: MOV TSSR(RS),R1 TREAD TSSR 
MOV #SSR,R2 SET up EXPECTED 
BIT #OFL.R1 [WAS OFF LINE SET IN TSSR 
BEQ 25$ :BR, iF NO 
BIS #OFL,R2 [MAKE THEM COOK ALIKE 
25$: CMP R2,Ri 3 ARE THEY OK 
BEQ 40$ BR. IF EQUAL = 0K 
BR 60$ : TROUBLE EX! 
40$: ADD “8, RG *POINT TO WRT CHARA DATA PACKET 
MOV R45 ,R3 [GET ADDRESS OF MESSAGE BUFFER 
BIT ne. -EXTF ,XST2(R3) SEXTENDED FEATURES BIT SET? 
fest INC EXTFEA [SET EXTENDED FEATURES Sw SWITCH 
BIT #X2.BUFE ,.XST2(R3) 
BEQ 50$ :BR, IF SWITCH NOT SET 


INC BENBSW [SET SOFTWARE SWITCH FOR ENABLED 


SEQ 0051 


sBUFFER ENABLE SWITCH SET 


Fl 





TSV3 = GLOBAL AREAS MACRO M1113 2 


WRTCHR 


ee ed ed od od oe 
— —) 2 ts 
ONOUEw 


SVSVevxty 


= WRITE CHARACTERISTICS COMMAN 


1 
+ 016500 000002 
000207 





—- 08:43 PAGE 29-1 


50$: 
SEC 
BR 70$ 

60¢: CLC 

703. MOV TSSR(RS),RO 
RTS PC 


iSET CARRY NO TROUBLE 
[CARRY CLEAR = ERROR 
TRETURN TSSR CONTENTS 
“RETURN 


SEQ 0052 


5 
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REWIND = POSITION TAPE (REWIND) COMMAND SEQ 0053 


-SBTTL REWIND = POSITION TAPE (REWIND) COMMAND 





s+ 


= ROUTINE WILL KEWIND THE SELECTED TAPE. 


CAUTION: ng amare DOES NOT WAIT FOR BOT 
RRIVE. ALSO i‘. — MUST CHECK FOR 


SSR" TO SET IN THE T 


s CALLING SEQUENCE : 


+4 A SOFT INIT 


O A WRITE tt ape ei 


; JSR PC,R 
: INPUT: 
: RS FIRST DEVICE UNIBUS ADDRESS | 
OUTPUT | 
; RO THE CONTENTS OF R4 IS PASSED TO RO | 
; | 
011074 REWIND: : 
011074 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
011100 012704 011170 MOV ARWPACK RG 'GET PACKET ADDRESS 
011104 010465 000000 MOV R4, TSDB(RS) [SEND PACKET ADDRESS TO EXECUTE 
011110 012703 000550 MOV #360. ,R3 ZENOUGH TIME FOR 2400° REEL TO REWIND 
011114 004737 016330 10$: JSR PC ,WAITF [WAIT FOR SSR ET 
011120 103417 BCS 20$ SLEAVE WHEN SSR IS SET | 
011122 DELAY 250. [WAIT FOR .25 SECONDS 
011122 012727 000372 MOV #250. ,(PC)+ 
011126 000000 . WORD 
011130 013727 002116 MOV LSDLY, (PC)+ 
011134 000000 . WORD 
011136 005367 177772 DEC -6(PC) 
011142 001375 BNE - 
011144 005367 177756 DEC =22(PC) 
011150 001367 BNE .-20 | 
1198 011152 005303 DEC R3 :BUMP COUNTER DOWN 
1199 011154 001357 BNE 10$ KEEP GOING 
1200 011156 000241 CLC [CLEAR CARRY TO SET ERROR 
1201 011160 010400 20$: MOV R4,RO [PASS THE PACKET ADDRESS 
120¢ 011162 000207 RTS PC RETURN | 
1204 
1206 011170 =<. +1028177770 | 
1208 011170 RWPACK: | 
1209 011170 102010 .WORD 102010 :POSTION COMMAND (REWIND) 
1210 011172 0000 “WORD 0 *NOT USED 
1212 
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REWIND = POSITION TAPE (REWIND) COMMAND 
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SEQ 0054 


z2- 





TSV3_= GLOBAL AREAS 
CKRAM = COMPARE RAM TO 1/0 PACKET 


J 


SN RARNAUNRIURIS 
WN —SOOCONAUSWH—"OOOan 


o GEE 


me ae at at at ot ot st at as Ss as ss Ss ot ht SP SP a Ss ss SS SS SS Ss Ss SS SS SS SS ss Ss SS SS SS os as SS SY os ts SS 


MRRININININNINNNINNININININININININININI NINN NPN fon nonononornons 


38 

39 
40 

ai 
42 
43 
44 
45 
6 011174 
47 011174 
48 011200 
49 011204 
50 011210 
51 €11212 
52 011216 
53 011224 
54 01123° 
55 011234 
56 011240 
57 011244 
58 011246 
59 011250 
60 011252 
61 011254 
6 011260 
63 011262 
64 011264 
65 011266 
66 011270 
67 011272 
68 011274 
011 


SN 
nm 
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002234 
000201 
016416 


000 
OScas 
016416 
000000 


000000 


000210 


000010 002274 


SEQ 0055 


~-SBTTL CKRAM = COMPARE RAM TO 1/0 PACKET 


3+ 
ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
sMEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


3 INPUT: 

RS FIRST DEVICE UNIBUS ADDRESS. 
OUTPUT: 

CARRY = RAM MATCHES PACKET 


SET 
CLR = RAM DOES NOT MATCH PACKET 
IMPLICIT OUTPUT: 
THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 
SIDE EFFECTS: 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


SAVREG :SAVE THE GENERAL REGISTERS 
V #RAMDATA,R1 SADDRESS TO SAVE THE RAM DATA 
MOV #RMPKTBEG,R2 [BYTE ADDRESS OF FIRSi RAM DATA 
CLR R3 ZCLEAR THE ERROR FLAG 
JSR PC, CHKTSSR [WAIT FOR 
MOVB «#0. TSDB(R5) :SET MAINTENANC 
10$: JSR PC. CHKTS SWAIT FOR SSR TO SET 
MOV 2. TSDB(RS) ‘SELECT NEXT RAM ADDRESS 
JSR * CHKTSSR [WAIT FOR SSR TO SET 
MOVB SBA(R5), (R1) sREAD THE RAM DATA 
CMPB ss (R21) +, (R4)+ [COMPARE TO EXPECTED 
BEQ ‘BRANCH IF OK 
INC 3 SSET ERROR FLAG 
208: INC Rg ADDRESS OF NEXT RAM LOCATION 
CMP R2, #RMPKTEND SREACHED END YET ? 
BLE 10$ [BRANCH TILL ALL READ 
TST R3 SWAS AN ERROR FOUND ? 
BEQ 30$ ‘BRANCH IF NOT 
CLC [CLEAR CARRY TO SHOW ERROR 
BR 50$ : XIT 
30$: SEC :SHOW GOOD COMPARE 
50$: MOV #8. ,RAMSIZ [SETUP RAMSIZ FOR PRAMPKT ROUTINE 
RTS PC RETURN 


Bo 





E 5 
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CKR = COMPARE RAM TO 1/0 CHARACTERISTICS DATA SEQ 0056 PI 


7 .SBTTL CKRAMZ = COMPARE RAM TO I/O CHARACTERISTICS DATA 
274 : 
275 SROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM R 
376 ;MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
sie ‘INPUT: 
280 : RG ADDRESS OF THE CHARACTERISTICS DATA 
281 : RS FIRST DEVICE UNIBUS ADDRESS 
283 SOUTPUT: 

85 CARRY SET = RAM MATCHES PACKET 

86 CLR = RAM DOES NOT MATCH PACKET 

88 IMPLICIT OUTPUT: 


Bey 


THE TABLE yt IS FILLED WITH THE 
DATA HELD IN 


NOM nopnofory 


1 
4 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

! | 
’ 3 RAMSIZ IS ere TO “8. OR 10. FOR PRAMPKT ROUTINE 

129% SIDE EFFECTS: | 
1296 THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 
1298 - 
1299 . 

1300 011304 CKRAM2: : | 
1301 011304 SAVREG ZSAVE THE GENERAL REGISTERS 
130 011310 012701 002234 MOV #RAMDATA,R1 sADDRESS TO SAVE THE RAM DATA 

1303 011314 012702 000167 MOV #RMCHBEG, *R2 “BYTE ADDRESS OF 4hy RAM DATA = 

1304 011320 005003 CLR R3 SCLEAR THE ERROR FLAG 

1305 011322 004737 016416 JSR PC, CHKTSSR ‘WAIT FOR SSR 

1306 011326 112765 000000 000000 MOVB #0.TSDB(RS) [SET MAINTENANCE MODE 

1307 011334 004737 010416 10$: JSR PC. CHKTSSR SWAIT FOR SSR TO SET 

1308 011340 010265 000000 MOV R2.TSDB(R5) SSELECT NEXT RAM ADDRESS 
1309 011344 004737 016416 JSR PC. CHKTSSR :WAIT FOR SSR TO SET 
1310 011350 116511 000000 MOVB = TSBA(RS), (R1) TREAD THE RAM DATA 
1311 011354 122124 CMPB ses (R11) +, (R4)+ 3COMPARE TO EXPECTED 
1312 011356 001401 BEQ 20$ CH IF OK 

1313 011360 005203 INC R3 ?SET ERROR FLAG 

1314 011362 005202 20$:  —INC R2 SADDRESS OF NEXT RAM LOCATION | 
1315 011364 012737 000010 002274 MOV #8. -RAMSIZ TASSUME EXTFEA SET | 
1316 011372 005737 002220 TST EXTFEA iS THE SOFTUARE™ EXTENDED FEATURES SET 

1317 011376 001407 BEQ 25$ T SET 
1318 011400 012737 000012 002274 MOV #10. ,RAMSIZ rset A Pansi? FOR EXTEND FEATURES 

1319 011406 020227 000200 CMP R2,#RMCHEND AT END OF EXTENDED BUFFER 

1320 011412 003750 BLE 10$ BR. IF NOT AT END YET 

1321 011414 000403 BR 27$ ND BRAN cH 

1322 011416 020227 000176 25$: CMP  . R2,#RMCHEND-2 REACHED END YET ? 

1323 011422 003744 BLE 10$ [BRAN cH TILL ALL READ 

1324 011424 005703 27$: ~=*TST R :WAS AN ERROR FOUND ? 

1325 011426 001402 BEQ 30s *BRANCH: TF NOT 

1326 011430 000241 CLC ;CLEAR CARRY TO SHOW ERROR 

1327 011432 000401 BR 50$ D 

1328 011434 000261 30$: SEC ‘SHOW GOOD COMPARE 





V3_= GLOBAL AREAS 
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TS 
CKRAM2 = COMPARE RAM TO I/O CHARACTERISTICS DATA 





1329 011436 060207 
1330 


50$: RTS PC 


;RETURN 


SEQ 0057 


o- ; 
2 EE oEEEooEEOoEOeee 


0-4 


CKMSG 





1332 

133 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

134 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 
1356 
1357 017740 
1358 01:44" 
1359 011444 
1360 011450 
1361 011454 
1362 011460 
1363 011462 
1364 011466 
1365 011470 
1366 011472 
1367 011474 
1368 011476 
1369 011502 
1370 011506 
1371 011510 
1372 011512 
1373 011514 
1374 011520 
1375 011524 
1376 011526 
1377 011536 
1378 011536 
1379 011542 
1380 011544 
1381 011546 
1382 011550 
1383 011552 
1384 011554 
1385 011556 
1386 


TSV3_= GLOBAL AREAS 
= COMPARE WRITE CHAR. MESSAGE BUFFERS 
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002276 
002300 
003126 


017376 


002314 
002460 


000002 
000014 


000200 
000016 


000012 


-+ 


-SBTTL 


CKMSG = COMPARE WRITE CHAR. MESSAGE BUFFERS 


ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


CVS e Se Se Se Ge Ge Ge Ge Be Be Ge Be Ge Ge Ge Ge Ge Se Se 


zt 
=z 
n 
ao 


10$: 


15$: 


25$: 


50$: 


55$: 
60$: 


EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 


RECV MESSAGE BUFFER HIGH ORDER Passss yy 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 


_ EXPD MESSAGE BUFFER ADDRESS 


SET = MESSAGE BUFFERS MATCH 
CLR -MESSAGE BUFFERS DON'T MATCH 


IMPLICIT OUTPUT: 


BUFFER IS SET TO EXPD DATA 

BUFFER IS SET TO RECV DAT 

SET TO HIGH ORDER ADDRESS Aor RECV 

SET TO LOW ORDER ADDRESS OF RECV 

ZSAVE R1-RS UNTIL NEXT RETURN 

RO,RCVHIADD TSAVE RECV HIGH ADDRESS 
R1 -RCVLOAD SSAVE RECV LOW ADDRESS 
KTENABLE :TESTING ABOV — 28k? 
PC, SETMAP TRETURN ADDRESS BIASED TO PAR6 IN RO 
RO.R1 [GET RETURNED ADDRESS BIASED i0 PAR6 
RG [WORD IN BUFFER 
R3 3CLEAR ERROR SEEN FLAG 
R2,RS “GET EXPD D BUFFER ADDRESS 
(RO) ,EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 
(R1).RECMSG(R4) :SAVE RECV FOR ERROR REPORT 


(R2)+,(R1)+ ZEXPD 
25$ 


TBR IF YES 
3 ‘SET ERROR SEEN FLAG 
#2,R4 ‘POINT TO NEXT WORD ADDRESS 
Rs “#16 :DONE FIRST 7 WORDS? 
#X2. EXT ,XST2(R5) 21S EXTENDED FEATURES SET IN EXPD? 
R4#16 [DONE EXTENDED FEATURES WORD? 
15$ ‘BR IF NO 
RF TANY ERRORS SEEN? 
SET FAILURE 
60$ 3 
[SET SUCCESS 
PC RETURN 


SEQ 0058 


v= 


TSV3_= GLOBAL AREAS 


CKMSG2 


ce ed ed ed ed od wd td od od 


ee ek dd ds 
Fat >? oY >t yt ot et bt ot et 
SomwAnewrvoo 


BIKAEUNSSVSVRARAVNL 
SOooooooooooooooooooooooooocecoo 


22 Oo ow 
SHREK LRLRLLRLEREE 


WwW 
oO 


SRESKETES eSNanceRaoNaeeS 


em a ak eh eh ee eh meth a en ee et md eed ch et od ae eh ed et ed ed 
yeaee 
ALIS 


re ee meh et ee a ek a ek ek ee ek eed ed et et st th 


020327 
003412 
012703 


012746 
012746 
0600 
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= COMPARE EXPD RECV MESSAGE BUFFERS 


000144 
000144 
011712 
000001 


017376 


002314 
002460 


000001 


SEQ 0059 


~SBTTL CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 


2@ 


[ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
TBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
TERROR PRINT ROUTINES. 


CVs Se Se Fe Ge Ge Ge Se Ge Se Ge Be Se Ge Se Be Ge Ge Ge Se Se 


CARRY 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 

NUMBER OF BYTES TO COMPARE 


SET = RESSAGE BUFFERS MATCH 
CLR = MESSAGE BUFFERS DON'T MATCH 


IMPLICIT OUTPUT: 


EXPMSG BUFFER IS SET TO EXPD DATA 
RECMSG BUFFER IS SET TO RECV DAT 
RCVHIADD SET TO HIGH ORDER ADDRESS MOF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
MSG2:: 
SAVREG zSAVE R1-R5 UNTIL NEXT RETURN 
CMP R3,#RECMSG-EXPMSG;a@@D IS COUNT ABOVE MAX ALLOWED? 
BLE “aap BP IF 
MOV #RECMSG-EXPMSG, Rn; saad 
PRINTF 4#D ; 
MOV ADEBUGASG, (SP) 
nov SP’RO 
TRAP  CS$PNTF 
ADD #4,SP 
5$: MOV RO. RCVHIADD : SAVE RECV HIGH ADDRESS 
MOV OAD SAVE RECV LOW ADDRESS 
Ist KTENABLE STESTING ABOV VE 28K? 
JSR PC, SETMAP TRETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO,R1 [GET RETURNED ADDRESS BIASED TO PAR6 
10$: CLR RG [WORD IN BUFFER 
CLR RS [CLEAR ERROR SEEN FLAG 
15$:  MOVB  (R2),EXPMSG(R4) :SAVE EXPD FOR ERROR REPORT 
mMOVB = (R11) ,RECHSG(RA) SSAVE RECV FOR ERROR REPORT 
CMP (R2)+, (R1)¢ 3EXPD EQUAL RECV? 
INC RS 1SET ERROR SEEN FLAG 
25$: ADD #1,R4 :POINT TO NEXT BYTE 
CMP R4.R3 :DONE ALL BYTES? 
BGE 50$ ZBR 
BR 15$ D0 NEXT BYTE 
50$: TST RS SANY ERRORS SEEN? 
BEQ 55$ BR IF NO 





uvu- 





TSV3_= GLOBAL AREAS 
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1440 0 
1441 0 


4 
0 
4 


11702 
11704 
11706 
11710 


000241 
000401 


55$: 
60S: 


ERCM: 
SIMSG 


TINE 


CLC 
BR 
SEC 


RTS 
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SEQ 0060 
sSET FAILURE 
esa — INTERNAL ERROR =CKMSG2 MESSAGE BUFFER EXCEEDED-' ;a@aD 
TSSR ERROR CODE REC*D = / 


eses AFTER DOING SOFT INIT/ 
TEST: .../ 


uv- 





TSV3_= GLOBAL AREAS 


™ 
SSBVSALEN 


ee ee ed ed ed ed od wd 
o 
= 


Dal ek ak ek Dek ek Dek ak De 


FES 


146 
1 


Mm 


fat ae oe 


004737 
004737 


104423 
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MACRO M1113 25-MAY-82 08:43 PAGE 35 
CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 


006020 
017262 


006020 
000004 
007446 


i+ 
;PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
; INPUT: 


: R1 CONTENTS OF TSSR AT ERROR 
[SIDE EFFECTS: 
: EXECUTES DROP UNIT TO CEASE TESTING 


BGNMSG SFIMSG 


SEQ 0061 


SFIMSG:: 
JSR PC,PRITSSR ae CONTENTS OF TSSR REGISTER 
JSR PC, CKDROP DROP UNIT, IF ALLOWED 
ENDMSG 
L10003: 
TRAP CSMSG 
‘PRINT anh cs TO PRINT THE CONTENTS OF 
:TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
+ INPUTS: 
3 R1 TSSR CONTENTS 
: RG ADDRESS OF COMMAND PACKET 
BGNMSG PKTSSR 
PKTSSR:: 
JSR PC,PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
MOV #4,R sNO. N K 
JSR PC,PRIPKT sPRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 
L10004: 
TRAP CSMSG 


PRINT ROUTINE TO PRINT THE es OF 
:TSSR AND A GET STATUS COMMAND PACKET. 


+ INPUTS: 


R1 TSSR_ CONTENTS 
R4 ADDRESS OF COMMAND PACKET 


BGNMSG PKTGETS 
PKTGETS:: 


1502 012144 

1503 012150 

1504 012154 

1505 012160 
012160 
012160 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 012162 
012162 

1518 012162 

1519 012166 
012166 
012166 


otgss otdeccsoeecesscs 
MUI Ww 
SAWS GROIN SNSNNONS 


1541 
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CKMSG2 


104423 


004737 


104423 


004737 


004 737 


104423 
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= COMPARE EXPD RECV MESSAGE BU 


004737 006020 
012700 000002 
004737 007446 


006020 


006020 


014322 


JSR TS hae sPRINT THE CONTENTS OF Hh a REGISTER 


MOV #2, ‘NO. OF WORDS IN GET STATUS PACKET 
JSR PC,PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 
L10005: 
TRAP CSMSG 


3+ 
PRINT TSSR ERRORS FOR INITIALIZATION TESTS 


INPUTS: 
; R1 TSSR CONTENTS 
: R4 ADDRESS OF COMMAND PACKET 
BGNMSG SFFMSG 
SFFMSG:: 
JSR PC PRITSSR :PRINT CONTENTS OF TSSR REGISTER 
ENDMSG 
L10006: 
TRAP _—CS$MSG 


-SBTTL PKTMES = PRINT TSSR AND MESSAGE BUFFER 
7+ 


PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
7BUFFER FOR ERROR REPORTS 


S INPUTS: 

: R1 CONTENTS OF TSSR 

: R2 LOW ORDER MESSAGE BUFFE 

: R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

: NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 


BGNMSG PKTMES 


PKTMES:: 
JSR PC.PRITSSR sPRINT CONTENTS OF TSSR 
MOV R2,RO sLOW se A -. nest 
V R3,R1 [HIGH OR DRESS 
SR PC, PRMESS ‘PRINT OFnE Rabssace seUFFER 
ENDMSG 
L10007: 
TRAP CSMSG 


SEQ 0062 





TSV3_= GLOBAL AREAS 
ADDSSR = PRINT TEST ADDRESS AND TSSR 


1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

135¢ 

155 

1554 

1555 012206 
012206 

1556 012206 

1557 Ol2el2 

1558 012216 

1559 012222 
012222 
012222 

1560 

1561 

136@ 

156 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572, 

1573 

1574 012224 
012224 

1575 012224 

1576 012230 

1577 012236 

1578 012236 

1579 012242 

1580 012246 
012246 
012246 





004737 
016501 
004737 


104423 


012700 


004737 


104423 


010352 
000002 
006020 


000007 
002220 


000010 
014632 
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-SBTTL ADDSSR = PRINT TEST ADDRESS AND TSSR 


it 
sPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A MEMORY TEST ADDRESS 


INPUTS: 


L10010: 


s+ 


RS FIRST DEVICE a ADDRESS 
ERRHI HIGH ORDER M TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 


BGNMSG ADDSSR 


JSR PC ,PRITADD PRINT MEMORY TEST ADDRESS 
MOV TSSR(RS) RI GET CURRENT TSS 
PC,PRITSSR PRINT THE CONTENTS OF TSSR REGISTER 


TRAP CSMSG 


-SBTTL MSGEXP = PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 


SPRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
SIMPLICIT INPUTS: 


5$: 
L10011: 


EXPMSG = EXPECTED MESSAGE BUFFER 
RECMSG = RECEIVED MESSAGE BUFFER 
RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGEXP 


MOV #7,R0 ZASSUME NO EXT FEATURES 

TST EXTFEA 3EXT FEATURES SET? 

BEQ 5$ F NO 

MOV #8. .RO TEXT FEATURE BUFFER IS 8 WORDS 
JSR PC.PRMSGEXP [PRINT EXPD/RECV MESSAGE BUFFERS 


TRAP CSMSG 


a re — a re Se - 


SEQ 0063 


mo 





TSV3_= GLOBAL AREAS 
FIFEXP 


1595 

1596 012250 
012250 

1597 012250 
012250 
012252 
012256 
012262 
012264 


1 
1598 012272 


oS 

—_ 

Mrornns 
BENS 
Ran EA 


ee 
S33 
283 
Oooooooooooooo 
eh 8 es = —b 
N—— 
NOOOfN 


Ww 
~w 
—s 


1 
1 
1 
1 


BREN 


ooo 
AAO 


=o 
NSNRELN 
SEUSS KAS 


Ww 
N 


— 
R 
os 
em, 
WMuIw 


012322 
000002 
000006 
012371 
000001 
000004 
015202 
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~ PRINT FIFO EXP/RECV DATA 





~SBTTL FIFEXP = RINT FIFO EXP/RECV DATA 


SPRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 


- BYTE COUNT 


SIMPLICIT INPUTS: 


- EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
~ RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


FIFEXP 
#FIFIMSG,R1 zPRINT BYTES TRANSFERRED 


a 1F 1MSG,-(SP) 
#2.~(SP) 


SP,R 
CSPNTX 
#6,SP 
#F 


1F 2MSG ZPRINT HEADER MSG 
sf IFOMSG,~(SP) 


SP.RO 
CSPNTX 


#4,SP 
R1,R0 GET BYTE COUNT 
PC ,PRBYTEXP :PRINT FIFO BYTES IN ERROR 


CSMSG 
eASCIZ ‘ZNZA NUMBER OF BYTES TRANSFERRED = %v2° 
eASCIZ ‘ZNZA FIFO DATA BYTES IN ERROR:' 





mag 





TSV3_= GLOBAL AREAS 


— 
AAQAAAOCAAOOCAOO 
33s 


ee kd et ad od 
SWOONOUSWNO 


012430 


— st 2 — me ce ee ed ed ed ed wd oe SS 


ROR © 
Swn— 
oo 


012470 104423 
30 012472 012510 
045 


4 
1654 013144 012701 
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MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS 


012472 


000001 


013206 


-SBTTL MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS 


[PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


SIMPLICIT INPUTS: 


EXPMSG = EXPECTED MESSAGE pap 

RECMSG = RECEIVED MESSAGE BUFFER 
RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSTAT 


MSGSTAT:: 
MOV #STATCOD,R1 ZASCII ADDRESS TABLE 

10S: MOV (R1)+,RO : DONE ALL MSG LINES? 
PRINTX RO [PRINT STATUS BIT NAMES 


MOV RO,=(SP) 
MOV #1,-(SP) 


MOV SP RO 

TRAP CSPNTX 

ADD #4,SP 

BR 10$ 7D0 ANOTHER MSG LINE 
20$: MOV #10.,R0 “NUMBER OF WORDS IN A READ STATUS BUFFER 

SR PC ,PRMSGEXP SPRINT EXPD/RECV MESSAGE BUFFERS 

ENDMSG 
L10013: 

TRAP CSMSG 
STATCOD: -WORD 1$,2$,3$,4$,5$,6$.0 
1$:.ASCIZ ‘ZNZA Tape Bus s Signals s in Word #8:° 
2$:.ASCIZ ‘ZNZA 5> IEOT <12> IFMK <9> IRDY<6> IRWD<2>° 
$:.ASCIZ ‘ENZA TAESVacla> IIDENT<11> IHER <8> JIONL<5S> IFBY<1>° 
4$:.ASCIZ ‘ZNZA IRESV1<1 >, Re <10> ISPEED<7> ILDP<4> IFPT<0>° 
5$:.ASCIZ My Tape Bus sugness % 
ete a DATMIS<7> Tuwees OUTRDY<5> INRDY<4>° 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


[PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
SIMPLICIT INPUTS: 


: EXPMSG = EXPECTED MESSAGE puree 

; RECMSG = RECEIVED MESSAGE BUFFER 

: RCVHIADD~ RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD~ RECEIVED MESSAGE BUFFER LOW ORD/:R ADDRESS 


BGNMSG MSGLOOP 
MSGLOOP: : 
MOV #LOOPCOD,R1 sASCII ADDRESS TABLE 


> oR) 





6 | 
TSV3 = GLOBAL wre MACRO M1113 25=-MAY-82 08:43 PAGE 38-1 
MSGLOOP = PRINT LOOPBACK HEADER AND MESSAGE BUFFERS SEQ 0066 | 
1655 013150 012100 10$: MOV (R1)+,RO ;DONE ALL MSG LINES? 
1656 013152 001410 BEQ 0$ YES 
1657 013154 PRINTX RO ‘PRINT STATUS BIT NAMES 
013154 010046 MOV RO,=(SP) 
013156 012746 000001 MOV #1,-(SP) | 
013162 010600 MOV SP,RO 
013164 104415 TRAP  CSPNTX 
013166 062706 000004 ADD #4 | 
1658 013172 000766 BR 10$ zD0 ANOTHER MSG LINE | 
1659 013174 012700 000012 20$: MOV #10. ,RO ‘NUMBER OF WORDS IN A READ STATUS BUFFER | 
1660 013200 004737 014632 JSR PC ,PRMSGEXP ‘PRINT EXPD/RECV MESSAGE BUFFERS 
1661 013204 ENDMSG 
013204 L10014: | 
as 013204 104423 TRAP — CSMSG | 
1688 013206 013226 013301 013400 LOOPCOD: -WORD 1$,2$,3$,4$,5$,6$,7$,0 
1664 013226 045 116 045 1$:.ASCIZ {3NEA Tape Bus Loopback Signals in Word #8: | 
1665 013301 045 116 045 2$:.ASCIZ ‘%NZA ARERR<15> IRESV2<14> IRESV1<13>° 
1666 013400 045 116 045 3$:.ASCIZ ‘%N%A IHISPL> TEGTC12> IWRT=>IIDENT<11> = IREV =>ICER <10>° 
1667 013477 045 116 045 4$:.ASCIZ ‘ZNZA IWFM =>IFMK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>° 
1668 013576 045 116 045 5$:.ASCIZ ‘%NZA ITADO=>IRDY<06> =ITAD1=>I0NL <05> = IERASE=>ILDP <04>° | 
1669 013675 045 116 045 6$:.ASCIZ ‘XNZA IREW =>IDBY<03>  IRWU =>IRWD <02>  IFEN =>IFBY <01>° 
1670 013774 045 116 045 7$:.ASCIZ ‘%N%A I1GO =>1FPT<00>° | 
1671 EVEN 
1672 
| 
| 
| 


ce er + 
OO 


++ 






1674 
1675 
1676 
1677 


BPE SeESS 


& BS 

N 
i=] 
——s 
— 
So 
nm 
mM 


22 
014022 012700 000012 
0047357 014632 


ba a a a ss SS 
0 
oO 
ah 
oO 


o 
8 
So 
= 
= 
So 
Ww 


32 
014032 104423 


1706 


So 
N 


3S & 


0 
0 
014034 004737 010236 
014040 013701 002224 
014044 013702 002226 
004737 010020 


NNN ONS 


<a od 
Wo 
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TSV3 = GLOBAL AREAS MACRO M1113 25-MAY=-82 08:43 PAGE 39 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


‘+ -SBTTL MSGSUB = PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


{PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


: IMPLICIT INPUTS: 


EXPMSG = EXPECTED MESSAGE ap 

RECMSG = RECEIVED MESSAGE BUFFER 

RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSUB 

MSGSUB: : 
MOV #10. ,R0 sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC ,PRMSGEXP SPRINT EXPD/RECV MESSAGE BUFFERS 
ENDMSG 

L10015: 
TRAP CSMSG 


-SBTTL MEMADD = PRINT MEMORY ADDRESS DATA ERROR 


[PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
SIMPLICIT INPUTS: 


: ERRHI = MEMORY ERROR HIGH ORDER ADDRESS 

3 ERRLO = MEMORY ERROR LOW ORDER ADDRESS 

; EXP - EXPECTED DATA 

3 RECV - RECEIVED DATA 
BGNMSG MEMADD 

MEMADD: : 
JSR PC ,PRIADD PRINT yy eens IN ERROR 
MOV EXPD,R1 [GET EXPD DAT 
MOV RECV,R2 GET RECEIVED DATA 
JSR PC,PRIXOR ‘PRINT EXPD/RECV 
ENDMSG 

L10016: 


TRAP CSMSG 


o- 





TSV3_= GLOBAL AREAS 
PRAMPKT = PRINT RAM AND PACKET DATA 
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MACRO M1113 25=MAY-82 08:43 PAGE 40 
CRE , SEQ 0068 


1716 .SBTTL PRAMPKT = PRINT RAM AND PACKET DATA 
1718 : 
1719 :PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1720 :WHEN THE RAM DATA DOES NOT MATCH. 
17s¢ s INPUTS: 
706 : R4 POINTER TO COMMAND PACKET 
1726 S IMPLICIT INPUTS: 
1728 : RAMDATA DATA AS READ FROM THE RAM 
1729 ; RAMSIZ NUMBER OF BYTES IN PACKET 
170 $ IF RAMSIZ=0 THEN DEFAULT TO 8. 
1732 S IMPLICIT OUTPUTS: 
1734 : RAMSIZ SET TO 0 
1735 g= 
1736 
1737 014056 PRAMPKT: 
1738 014056 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1739 014062 012701 002234 MOV #RAMDATA,R1 :DATA FROM THE RAM 
1740 014066 005002 CLR R SINIT BYTE NUMBER 
1741 014070 122124 5$: CMPB—s« (R11) +, (RG) + ZCOMPARE EXPECTED, RECEIVED 
1742 014072 001005 BNE :BR IF NO MATCH 
1743 014074 FORCERROR 7$,NOTSSR 
1744 014104 000436 BR 10$ saad 
1745 014106 116105 177777 7$: MOVB =1(R1),R5 [GET RECV RAM DATA 
1746 014112 116403 177777 MOVB =1(R4).R3 :GET EXPD PACKET DATA 
1747 014116 XOR RS_R :XOR EXPD/RECV 
1748 014126 042703 177400 BIC #177400,R3 :LOW BYTE ONLY 
1749 014132 116137 177777 002226 MOVB =1(R1),RECV [GET RECEIVED RAM DATA 
1750 014140 116437 177777 002224 VB =1(R4),EXPD :GET EXPECTED RAM DATA 
1751 014146 PRINTB #RAMASC,R2,RECV,EXPD,R3 
014146 010346 V R3,-(SP) 
014150 013746 002224 MOV EXPD ,-(S 
014154 013746 002226 MOV RECV,-(SP) 
014160 010246 MOV R2,-(SP 
014162 012746 014236 MOV #RAMASC ,-(SP) 
014166 012746 000005 MOV #5,-(SP 
014172 010600 MOV SP,RO 
014174 104414 TRAP  CSPNT 
014176 06 000014 ADD #14,SP 
1752 014202 005202 10$: INC R2 :UPDATE BYTE COUNT 
1753 014204 005737 002274 TST RAMSIZ *DEFAULT TO 8.? 
1754 014210 001404 BEQ 15$ ‘BR IF YES 
1755 014212 020237 002274 CMP R2,PRAMSIZ ;DONE ALL BYTES? 
1756 014216 003724 BLE 5$ :BR IF NO 
1757 014220 000403 BR 25$ : 
1758 O14282 020227 000010 15$: CMP R248. [DONE DEFAULT NUMBER OF BYTES? 
1759 014226 002720 20$: BLT ss :BR IF 
1760 014230 005037 002274 25$: CLR RAMS1i :SET DEFAULT RAMSI2Z 
1761 014234 000207 RTS PC RETURN 
1763 014236 045 116 045 RAMASC: .ASCIZ ‘2NZA BYTE: 2D2%A RAM: ZO3%A Packet: YO3ZA XOR:203° 


a-, 





TSV3_= GLOBAL AREAS MACRO_M1113 25=MAY=82 08:43 PAGE 40-1 
PRAMPKT = PRINT RAM AND PACKET DATA 


1764 -EVEN 


SEQ 0069 


Ot 
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PRMESS = PRINT CONTENTS OF MESSAGE BUFFER SEQ 0070 
1768 .SBTTL PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 
:* 
1770 
1771 THIS ROUTINE PRINTS THE CONTENTS OF 
1772 [THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 
1773 be Ai 
1774 $ 
\7?? : INPUT: 
1777 ; RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
1778 : HIGH ORDER ADDRESS OF MESSAGE BUFFER 
1779 ; NOTE: R1 1S IGNORED IF KTENABLE FLAG 1s CLEAR 
1781 3THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 
1783 - 
1784 
1785 014322 PRMESS: 
1786 014322 SAVREG :SAVE THE REGISTERS 
1787 014326 010005 RO TSAVE LOW ORDER ADDRESS 
1788 014330 005737 003126 TST K TENABLE ZADDRESS ABOVE 28k? 
1789 014334 001001 BNE 10$ F YES 
1790 014336 005001 CLR R1 ?SET HIGH ORDER ADDRESS TO 0 
1791 014340 010103 10$: MOV R1,R3 [SAVE HIGH ORDER ADDRESS 
1792 014342 006100 ROL RO SHIFT BIT15 TOC 
1793 014344 006101 ROL R1 SHIFT TO HIGH ORDER FOR PRINTOUT 
1794 014346 : PRINTX #PROASC,R1,R5 *PRINT MESSAGE BUFFER ADDRESS 
014346 010546 V = (SP) 
014350 010146 MOV R1,-(SP) 
014352 012746 014500 MOV #PROASC,-(SP) 
014356 012746 000003 MOV #3,-(SP) 
014362 010600 MOV RO 
104415 TRAP C TX 
014366 062706 000010 ADD #10,SP 
1795 014372 PRINTX #PRIASC sPRINT HEADER FOR CONTENTS 
014372 012746 014545 MOV #PRIASC,=(SP) 
014376 012746 000001 MOV #1,-(SP) 
014402 01 MOV * 
014404 104415 TRAP  C$PNTX 
014406 062706 000004 ADD #4,SP 
1796 014412 005004 CLR R4 ZNUMBER OF THE NEXT WORD 
1797 014414 010501 MOV R5,R1 : COPY LOW ORDER ADDRESS 
1798 014416 010300 MOV R3.RO :COPY HIGH ORDER ADDRESS 
1799 014420 001403 BEQ 20 F NOT ABOVE 28k 
1800 014422 004737 017376 JSR PC, SETMAP SSETUP PAR ADDRESS IN RO 
1801 014426 010005 MOV RO.RS [GET PAR FORMAT ADDRESS ABOVE 28k 
1802 0144 20$: PRINTX #PRASC, R4,(R5)+ “PRINT THE CONTENTS OF MEMORY BUFFER 
014430 012546 MOV (Rs) +, =(SP) 
014432 010446 MOV (§P) 
014434 012746 014603 MOV pPhase (SP) 
014440 012746 000003 MOV #3,-(SP) 
014444 010600 MOV SP-RO 
014446 104415 TRAP  C$PNTX 
014450 062706 000010 ADD #10,SP 
1803 014454 005204 INC RG :NUMBER OF THE NEXT 
1804 014456 020427 000007 CMP R4 a7 [DONE ALL YET ? 
1805 014462 003005 BGT 50$ ‘BRANCH iF ALL DONE 





at 












TSV3_= GLOBAL AREAS MACRO M1113 25=MAY=82 08:43 PAGE 41-1 
PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 


1806 014464 002761 BLT 20$ RINT dg 7 WORDS 

1807 014466 032763 000200 000012 BIT x2. EXTF, xsT2(R3}; gEXTENDED FEATUTES ON 2 
1808 014474 001355 BNE 20$ T EXTENDED STATUS WORD 
44 014476 000207 50S: RTS PC RETURN 

1811 014500 045 116 045 PROASC: .ASCIZ ‘ZN%ZA Message Buffer Address = , 201205" 

1812 014545 045 116 045 PRIASC: .ASCIZ ‘ENZA Message Buffer Contents:' 

+ 3 014603 045 116 045 PRASC: ciety *INZA WordZD1ZA: %0° 





SEQ 0071 


rm 





TSV3_= GLOBAL AREAS 
PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 


~ 
oo 
—_ 
oa 


- SBTTL 
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PRASGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 


1817 3+ 
1818 : 
1819 ZROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
1821 3 20 = NUMBER OF WORDS IN BUFFER 
1838 S IMPLICIT INPUTS: 
1825 ; EXPMSG = EXPECTED MESSAGE BUFFER 
1826 : RECMSG = RECEIVED MESSAGE BUFFER 
1827 : RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
1828 : RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
1830 014632 PRMSGEXP: : 
1831 014632 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
1832 014636 010005 MOV RO, [SAVE NUMBER OF WORDS 
1833 014640 013700 002300 MOV RCVLOADD,,RO [GET RECV LOW ADDRESS 
1834 014644 010004 MOV RO,R4 :COPY LOW ADDRESS 
1835 014646 013701 002276 MOV RCVHIADD,R1 [GET RECV HIGH ADDRESS 
1836 014652 006100 ROL RO :SHIFT BIT15 TO C 
1837 014654 006101 ROL R1 :SHIFT TO HIGH ORDER FOR PRINTOUT 
1838 014656 PRINTX #PRMSGO,R1,R4 :PRINT MESSAGE BUFFER ADDRESS 
014656 010446 MOV R4,=(SP) 
014660 010146 MOV R1,-(SP) 
014662 012746 015012 MOV #PRMSGO,-(SP) 
014666 012746 000003 MOV #3,-(SP) 
014672 010600 MOV SP,RO 
014674 104415 TRAP  CSPNTX 
014676 062706 000010 ADD #10,SP 
1839 014702 PRINTX SG1 :PRINT HEADER FOR CONTENTS 
014702 012746 015057 MOV #PRMSG1,-(SP) 
014706 012746 1 MOV #1,-(SP) 
14712 01 MOV SP,RO 
014714 104415 TRAP  C$PNTX 
014716 062706 000004 ADD #4,SP 
1840 014722 005004 CLR RG ZNUMBER OF THE CURRENT WORD 
1841 014724 012701 002314 MOV #EXPMSG,R1 [GET EXPD BUFFER ADDRESS 
184¢ 014730 012702 002460 MOV #RECMSG,R2 2GET RECV BUFFER ADDRESS 
1843 014734 011100 20$: Mov (R1),RO- 'GET EXPD 
1844 014736 011203 MOV (R2)-R3 GET RECV 
1845 014740 XOR RO.R OR EXPD/RECV 
1846 014750 PRINTX #PRMSG2,R4,(R1)+, {ROD EARS 
014750 010346 MOV SP) 
014752 012246 MOV tRdye> =(SP) 
014754 012146 MOV (R1)+.=(SP) 
014756 010446 MOV R4,-(SP) 
014760 012746 015115 MOV #PRMSG2,-(SP) 
014764 012746 000005 MOV 5,-(SP) 
014770 010600 MOV SP,RO 
014772 104415 TRAP  C$PNTX 
014774 062706 000014 ADD #14,SP 
1847 015000 005204 INC R4 ZNUMBER OF THE NEXT 
1848 015002 020405 CMP R4_RS [DONE ALL YET? 
1849 015004 002001 BGE 50$ <BR IF YES 
1850 015006 000752 BR 20$ [D0 ANOTHER 
1851 015010 000207 50$: RTS PC [RETURN 


SEQ 0072 


_ 4 
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PRMSGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 


TSV3_ = GLOBAL AREAS 

183¢ 

1853 015012 04 
1854 015057 04 
1855 015115 04 
1856 

1857 

~ 


045 Mas 
045 PRMSG 
045 PRMS G2: 


eASCIZ 

eASCIZ 

eASCIZ 
-EVEN 


I 





6 


‘ENZA Message Buffer mote = %01205' 
*ZNZA neese e Buffer Contents:' 


*ZNZA 


#ZD2ZA 


EXPD: "TO6uA RECV: %06%A XOR: %06' 


SEQ 0073 


= wt 


-—— 


\ J 6 
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PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0074 
1859 .SBTTL PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
: 3¢ 
1861 
186, SROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
1868 : ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
1865 : RO - NUMBER OF BYTES IN BUFFER 
1867 S IMPLICIT INPUTS: 

1869 ; EXPMSG = EXPECTED MESSAGE BUFFER 
1870 : RECMSG = RECEIVED MESSAGE BUFFER 
1872 015202 PRBYTEXP: : 
1873 015202 SAVREG sSAVE R1-R5_UNTIL NEXT RETURN 
1874 015206 010005 MOV RO,RS ZSAVE NUMBER OF BYTES 
1875 015210 005037 002312 CLR PRMNO SINIT ERR 
1876 015214 005 CLR RG ‘NUMBER OF THE CURRENT BYTE 
1877 015216 012701 002314 MOV #EXPMSG,R1 ‘GET EXPD BUFFER ADDRESS 
1878 015222 012702 002460 MOV #RECMSG.R2 :GET RECV BUFFER ADDRESS 
1879 015226 111100 20$: MOVB (RI [GET EXPD BYTE 
1880 015230 042700 177400 BIC #°¢<377>, sro [CLEAR UPPER BYTE 
1881 015234 110037 015550 MOVB = RO PR BEX SSAVE FOR ERROR REPORT 
1882 015240 111203 MOVB = (RB) [GET RECV BYTE 
1883 015242 042703 177400 BIC RS) RS R3 :CLEAR UPPER BYTE 
1884 015246 110337 015552 MOVB RS. PRBREC [FOR ERROR REPORT 
1885 01525 XOR :XOR EXPD/RECV 
1886 015262 122122 CMPB Prine, (R20 ZEXPD = RECV? 
1887 015264 001431 BEQ 30$ [BR IF YES 
1888 015266 005237 002312 INC PRMNO ‘UPDATE ERROR COUNT 
1889 015272 023727 002312 ° 000010 CMP PRMNO, #8. ‘PRINTED 8? 
1890 015300 101023 : BHI 0$ “BR IF YES 
1891 015302 27$: = PRINTX #PRBMSG,R4,PRBEXP,PRBREC,R3 
015302 010346 MOV R3,-(SP) 
015304 013746 015552 MOV PRBREC,-(SP) 
015310 013746 015550 MOV PRBEXP, (SP) 
015314 010446 MOV R4,-(SP 
015316 012746 015416 MOV #PRBMSG,-(SP) 
015322 012746 000005 MOV #5,-(SP) 
015326 01 SP,RO 
915330 104415 TRAP _— C$PNT 
015332 062706 000014 ADD #14,SP 
1892 015336 FORCEXIT 50$ aap 
1893 075346 000404 BR 35$ saad 
1894 015350 30S: 
1895 015350 FORCERROR 27$,NOTSSR ; 
1896 015360 35$: aad 
1897 015360 005204 INC R4 ‘NUMBER OF THE NEXT 
1898 015362 020405 CMP R4,RS SDONE ALL YET? 
1899 015364 002001 BGE 50$ <BR IF YES 
1900 015366 000717 BR 208 ‘DO ANOTHER 
1901 015370 50$:  PRINTX M#PRBTOT.PRMNO :PRINT TOTAL ERROR COUNT 
015370 013746 002312 MOV PRMNO, =(SP) 
015374 012746 01550 MOV #PRBTOT, -(SP) 
015400 012746 000002 MOV #2,-(SP5 
015404 010600 MOV SP‘RO 
015406 104415 TRAP  C$PNTX 





~_ 


TSV3_= GLOBAL AREAS MACRO M1113 25=MAY-82 08:43 PAGE 43-1 


PRBYTEXP = PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER SEQ 0075 
015410 062706 000006 ADD #6,SP 
1908 015414 000207 RTS PC yRETURN 
1904 01541 045 116 045 PRBMSG: .ASCIZ ‘ZNZA BYTE #ED2%A_ EXPD: %O3%A af5Sv: %03%A XOR: %03° 
1905 01550 045 116 045 PRBTOT: -ASCIZ "ZNZA NUMBER OF BYTES IN ERROR = %D2° 
1907 015550 000000 PRBEXP: .WORD 0 ZEXPD 
1908 015552 000000 PRBREC: .WORD 0 TRECV 





at 









L 6 














= GLOBAL AREAS MACRO M1113 25-MAY-82 08:43 PAGE 44 
EXPREC = PRINT EXPD/RECV WORD DATA SEQ 0076 
193i} -SBTTL EXPREC = PRINT EXPD/RECV WORD DATA 
;¢ 
1913 3 
bat sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
1916 ; INPUTS: 
1917 : 
1918 8 R1 RECEIVED DATA 
1919 : R2 EXPECTED DATA 
1920 5 i 
1921 s= 
1966 
1923 015554 BGNMSG EXPREC 
015554 EXPREC:: 
1924 015554 004737 010020 SR PC,PRIXOR sPRINT THE DATA 
1925 015560 ENDMSG 
015560 L10017: 
" 015560 104423 TRAP CSMSG 


et 
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EXPBREC = PRINT EXPD/RECV BYTE DATA SEQ 0077 
1929 .SBTTL EXPBREC = PRINT EXPD/RECV BYTE DATA 
3* 
1931 3 
1932 SPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
1934 : 
1935 : INPUTS: 
1936 } 
1937 : R1 RECEIVED DATA BYTE 
1938 ; R2 EXPECTED DATA BYTE 
1939 : 
1940 i- 
1941 
1942 015562 BGNMSG EXPBREC 
015562 EXPBREC: : . 
1943 015562 004737 007670 JSR PC ,PRIBXOR :PRINT THE DATA 
1944 015566 ENDMSG : 
015566 L10020: 
015566 104423 TRAP _—CSMSG 
1945 
1946 
1947 
1948 
1949 .SBTTL RAMERR = PRINT RAM AND PACKET DATA 
1951 : 
195¢ [PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1954 + INPUTS: 
1955 : 
1956 : RG POINTER TO COMMAND PACKET 
1958 TIMPLICIT INPUTS: 
1960 : RAMDATA DATA AS READ FROM THE RAM 
1961 : RAMS1Z NUMBER OF BYTES IN PACKET 
196¢ : IF RAMS 7=0 THEN. DEFAULT TO 8. 
1964 S IMPLICIT OUTPUTS: 
1966 : RAMSIZ SET TO 0 
1967 - 
1968 
1969 015570 BGNMSG RAMERR 
015570 RAMERR: : 
1970 015570 004737 014056 JSR PC ,PRAMPKT :PRINT RAM/PACKET DATA 
1971 015574 ENDMSG 
015574 L10021: 
015574 104423 TRAP —CS$MSG 
1998 
197% .SBTTL RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA 
3+ 
1976 : 
1977 [PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


1979 tS INPUTS: 





—. 





TSV3_ = GLOBAL AREAS MACRO M1113 25=MAY-82 08:43 PAGE 45-1 
RAMTADD = PRINT TEST ADDRESS, RAM AND PACKET DATA 


1980 3 
bs 3 R4 POINTER TO COMMAND PACKET 
1988 s IMPLICIT INPUTS: 
1985 : RAMDATA DATA AS READ FROM _ RAM 
1986 ; RAMSIZ NUMBER OF BYTES IN PACKET 
1987 3 IF RAMSIZ=0 THEN DEFAULT To 8. 
1988 ; ERRHI HIGH ORDER TEST ADDRESS 
i 3 ERRLO LOW ORDER TEST ADDRESS 
133) s IMPLICIT OUTPUTS: 
1993 3 RAMSIZ SET TO 0 
1994 3 
1995 
1996 015576 BGNMSG RAMTADD 

015576 RAMTADD: : 
1997 015576 004737 010352 JSR PC,PRITADD sPRINT TEST ADDRESS 
1998 015602 004737 014056 JSR PC, PRAMPKT sPRINT RAM/PACKET DATA 
1999 015606 - ENDMSG 

015606: : L10022: 

015606 104423 TRAP CSMSG 
5008 
song »SBTTL RAMEXP = PRINT RAM EXPD/RECV DATA 

3 + 

2004 $ 
re sPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
2007 INPUTS: 
2008 3 
2009 3 R1 RECEIVED DATA 
2010 ; R2 EXPECTED DATA 
2011 : RS CONTROLLER RAM ADDRESS 
2012 oo 
2013 
2014 015610 BGNMSG RAMEXP 

015610 RAMEXP: : 
2015 015610 042701 177400 BIC #*C<377>,R1 sSAVE EXPD RAM DATA BYTE 
2016 015614 042702 177400 BIC #°C<377>._R2 sSAVE EXPD RAM DATA BYTE 
2017 015620 004737 010144 JSR PC, PRIRAM sPRINT THE RAM ADDRESS 
2018 015624 004737 010020 JSR PC. PRIXOR sPRINT THE DATA 
2019 015630 ENDMSG 

0156 : L10023: 
2020 015630 104423 TRAP CSMSG 
2021 -SBTTL TIMEXP = PRINT TIMER A,B AND EXP/REC 
5055 ° 3 
2024 zPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
soso zAND TIMER A,B HEADER MESSAGE 
2027 3 INPUTS: 
2028 , 
2029 $ R1 RECEIVED DATA 
2030 ; R2 EXPECTED DATA 


SEQ 0078 


—t «4 






TSV3 = GLOBAL AREAS 


TIMEXP = PRINT TIMER A,B AND EXP/R 


2031 se 
O3 

2033 015632 BGNMSG 
015632 TIMEXP:: 

2034 0156 $ PRINTX 
0156 012746 015660 MOV 
015636 012746 000001 MOV 
015642 010600 MOV 
015644 104415 TRAP 
015646 062706 000004 ADD 

2035 015652 004737 010020 JSR 

2036 015656 ENDMSG 
015656 L10024: 

015656 104423 TRAP 

2037 


TIMSGO: .ASCIZ 


2038 
2039 015660 045 116 045 
2040 -EVEN 
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TIMEXP 
#TIMSGO :PRINT HEADER 
#TIMSGO,=(SP) 

#1,-(SP5 

SP.RO 

CSPNTX 

#4,SP 

PC; PRIXOR :PRINT THE DATA 
CSMSG 


*ZNZA TIMER A STATUS IS IN BIT 32N%ZA TIMER B STATUS IS IN BIT 2° 


SEQ 0079 


— 





2054 

2055 015760 
5760 

2056 015760 


TSV3_= GLOBAL AREAS 
BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 


104423 
045 


? 
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177400 


016020 
000002 


000006 
006020 


116 


045 


.SBTTL 
fa 
;PRINT ROUTINE 
: INPUTS: 


R1 
R2 


L10025: 
TRAP 
XFERASC: 


BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 


FOR TSSR ERRORS ON DATA TRANSFERS 


CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 


BADSSR 
R2,-(SP) ZSAVE DATA TRANSFERRED 
#177400,R2 'GET JUST ONE BYTE 
#XFERASC,R2 

R2,=(SP) 

#XFERASC,=(SP) 

#2,-(SP) 

SP;RO 

CSPNTB 

(SP) +,R2 :RESTORE R2 

PC,PRITSSR :DECODE TSSR CONTENTS 


CSMSG 
eASCIZ ‘%ZN%A Data Transferred = %03° 


SEQ 0080 


a- 









TSV3_= GLOBAL AREAS MACRO M1113 25-MAY-82 08:43 PAGE 47 
GLOBAL SUBROUTINES SECTION 


-SBTTL GLOBAL SUBROUTINES SECTION 


p++ 
: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


SEQ 0081 


nxn 








2099 
2100 


PROPIPINPINININININNoNgNININY 
saSssesssecses 
Sooooooooooooo 


ed ed ed ed ed eed ed ed ed ed etd eed end ed 
EERE See 

—d aed eed ed ~~ VM 
Noannorsan Poy 


TSV3_ = GLOBAL AREAS 
SOFINIT = SOFT INITIALIZE OF CONTROLLER 


012765 
7 
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000000 000002 


016330 
000002 


176277 
002200 


SEQ 0082 

~SBTTL SOFINIT = SOFT INITIALIZE OF CONTROLLER 
i+ 
ROUTINE TO DO A SOFT INITIALIZE OF bs CONTROLLER 
BY WRITI T REGIS AFTER THE INIT, 
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
;DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 
SINPUTS: 

RS ADDRESS OF FIRST REGISTER 
OUTPUTS: 

RO CONTENTS OF TSSR, IF ERROR 

CARRY SET IF INIT WAS OKAY 

CLEAR IF FATAL ERROR 

CALLING SEQUENCE: 

MOV #ADDRESS RS 


JSR PC, SOF INIT 
BCS CONTINUE 


ERRDF sREPORT FATAL ERROR 
SOF INIT:: 

SAVREG any THE REGISTERS 

yd #0, he ae : DOT " x IT. 


WAIT FOR SSR 

MOV TSERCRS), RO ‘get THE TSSR REGISTER 
MOV ROR -TSSR CONTENTS 
BIC #°C<HIADDR!OFL>,R4 
BIS #SSRINBA,R4G :R4 HAS EXPECTED CONTENTS 


CMP R4,RO ZONLY EXPECTED BITS SET ? 
BEQ 5$ CH_IF OKAY 
CLC CLEAR THE CARRY FOR ERROR 
BR 10$ 360 TO EXIT 

5$: SEC SET THE CARRY BIT 


10$: RTS PC ;RETURN TO CALLER 





na 





CHKAMB 


WN — SO VONAUSWN =O 00 NO 


NOuw UN—SOBNANRWR=ODe 


ir Sr ier ir Sr Ser Si rr Serr rrr Ser Ser Sr Sr Sr Sr Se er rr er Ser rear lr Ser Sir er Sear Ser rr Gr Seer ir 4 
SOoOoOoooOoOoooooooooooooeoeo 


ROPIPIPINIPINIDINPIPININIPINIDININININININI NI NININININININININININININININIPNIPNNUN PT 
MUMMUMMMI MI BBB WWIWUININININNNNNNN 


TSV3_= GLOBAL AREAS 


mn 
ae 


HDAXAAAAAAAAAAAAAO 
le ee ed ed ed ed ed ed ed ed aed ad 


ceed aD a eB eb ed ed ee ed a et ad a a ss tt ds St 
SRRVRRSORORNARORROONS 


RROD 


™~ 
™ 


100000 
174077 


000200 
000040 
177761 
000016 


000040 
000006 


ad 


THIS ROU 
FOR AMBI 


: INPUT: 


OUTPUT: 


5$: 


10$: 


40$: 


45$: 
50$: 


- SBTTL 


IT 


RO 


RO 
CARRY 
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= CHECK TSSR FOR AMBIGUITY 


SEQ 0083 


CHKAMB = CHECK TSSR FOR AMBIGUITY 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


ha sag THE CONTENTS OF THE TSSR REGISTER 


SET = NO AMBIGUITY 
CLR. - AMBIGUOUS CONTENTS 


RO,R4 
#SC,RO 
5$ 


sBRANCH IF YE 
* tents” ta we 


45$ 
#SSR,RO 
#B1TS,RO 
#°CTERCLS.R4 
RG. 416 

40$ 

45$ 
#81T5,RO 


#81T2!B1T1,RO 
45$ 


50$ 
PC 


sSAVE_THE GENERAL REGISTERS 
CONTENTS OF TSSR 
21S BIT 15 SET ? 


i! 
sANY OTHER BITS SET ? 
RROR 


: BE ANE 
sRETURN WITH SUCCESS 
21S READY BIT SET ? 

BRANCH IF READY BIT IS SET. 
1S FATAL ERROR BIT SET ? 
sERROR IF NOT 

CLEAR ALL BUT TERMINATION COVE 
sALL_ THREE BITS MUST BE SET 
ERROR NOT SET 


; ROR BIT SET ? 
sERROR IF BIT IS SET WITH SSR 
21S THIS_A FUNCTION REJECT 
BR, TSSR IS OK 


F 
sAMBIGUOUS CONTENTS 


sSHOW SUCCESS = NO AMBIGUITY 
sRETURN TO CALLER 





wt 
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ENAINT ,DSBINT = TENABLE/D1 SABLE INTERRUPTS 


mr 
ws 
o 


an 


POPS PONE noneneny 


000000 000002 


oooooooo 
22 


000340 000002 


pebt sere yee nn ne Fi ores 
BILFSRAVLESEGRALAT LS SAVSARANASSSIEAF 


PROPIPINIPINININPINIPINSNINIPININoPoNonofnenongny 





~SBTTL ENAINT,DSBINT = ENABLE/DISABLE INTERRUPTS 


DEFAULT DISPLAY INTERRUPT HANDLERS. 
+ IF DISPLAY TIMEOUT, REPORT DEV FATAL, AND ABORT PASS. 
; OTHERUI SE. SAVE DPU REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR ‘*INTMASK’’ AND ‘‘INTFLAG'’ BYTES: 


IOKCKIN=B8117 : DON'T CHECK FOR BAD INTERRUPTS == TEST WILL. 
IOKSTP=81T0 ; EXPECT "'STOP"’ INTERRUPT. 


i INTERRUPT MASK == SAYS EXPECTING INTERRUPTS 
s INTERRUPT FLAG == SAYS WE GOT O°” (IF POSITIVE) 
INTFLAG: BYTE 0 


;SAVED INTERRUPT VECTOR: 
INTVEC: . 0 

sSAVE CPU PC 

INTCPC: .WORD 0 


j SUBROUTINE TO ENABLE INTERRUPTS: 

ENAINT: MOV RO,-(SP) ZSAVE RO 
MOV IVEC,RO *GET POINTER TO VECTORS 
MOV #INTR, (RO) + [SET UP INTERRUPT VECTOR 
MOV #PRIO?, (RO)+ 
MOV (SP) +,R0 ZRESTORE RO 
MOV (SP) ,-(SP) 
MOV #0,2¢SP) :SET CPU TO LEVEL 0 


; SUBROUTINE TO eS pe INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: aod P) ,=(SP) 


RTI 


aPR167. 2(SP) 


wT 











2200 

2201 

2202 ore m% 
$603 016276 
2204 016 
2205 016310 


2206 016316 
$soe 016320 


TSV3 = GLOBAL AREAS 
INTR = INTERRUPT HANDLERS 
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000001 
016225 
000001 


000001 


002216 
016224 
016225 


INTR:: 


L10026: 


-SBTTL 
BGNSRV 
V 
CLRB 
BITB 


BNE 
BIS8 


ENDSRV 


SEQ 0085 
INTR - INTERRUPT HANDLERS 
INTR sDEFINE INTERRUPT ENTRY 
#1, INTRECV 7SET FLAG ~s wer INTERRUPT RECEIVED 


INTFLAG CLEAR FLAG TO SAY WE GOT _ iNT ERRUPT 
#IOKSTP,INTMASK :EXPECTING STOP INTERRUPT? 


:BR IF YES 
#IOKSTP,INTFLAG :NO. SET THE ERROR FLAG. 


oo REGISTERS, MSG BUFFER, ETC. 





o-, 


AREAS 
= WAIT FOR SUBSYSTEM READY 


000401 
104422 
012746 
016500 
105700 
100420 
012727 


013727 
000000 
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003000 
000002 


000001 
002116 
177772 
177756 


~SBTTL WAITF = WAIT FOR SUBSYSTEM READY 


? SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
S INPUTS: 


RS ADDRESS OF FIRST DEVICE REGISTER 
;OUTPUTS: 
fe) CONTENTS OF Ti TSSR READ 
CARRY SET = READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 
WAITF:: BR 1$ sNOP WHEN SUPER FIXED 
BREAK : DO A SUPVSR BREAK FIRST. 
TRAP CS$BRK 
1$: MOV #3000, =(SP) 3300 MSEC TIMER 
2s: MOV TSSR(R5) ,RO sREAD THE TSSR REGISTER 
TST8 RO zTEST FOR READY BIT SET 
BMI 3$ 3 EXIT ON STOP FLAG. 
DELAY 1 : WAIT 100 USEC 
MOV #1, (PC)+ 
- WORD 
MOV LSDLY,(PC)+ 
- WORD 
DEC ~6(PC) 
BNE 
DEC -22(PC) 
BNE -20 
DEC (SP) REDUCE DELAY COUNT 
BNE 2s RETRY UNTIL TIMER EXPIRES 
CLC : C = 0, CONTROLLER STILL RUNNING... 
BR 4$ 2+20R HUNG-UP AFTER 300 
3$: SEC C = 1, CONTROLLER IS STOPPED. 
4$: 443 sad ZRESTORE STACK WITHOUT CHANGING CARRY BIT 


o-, 








TSV3_= GLOBAL 
CHKTSSR = CHECK TSSR FOR READY 


2276 016454 


AREAS 
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016330 
016124 
100000 
074000 





~SBTTL CHKTSSR = CHECK TSSR FOR READY 


3¢ 
:THIS ROUTINE WAITS FOR READY IN THE TSSR 
SAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


INPUT: 
: RS ADDRESS OF CSR REGISTERS 
OUTPUT: 
: RO CONTENTS OF TSSR 
: CARRY SET = OKAY 
: CLR = NOT READY AMBIGUOUS, OR SC SET 
CHKTSSR: 
JSR PC WAITF ;WAIT FOR READY 
BCC 208 ‘BRANCH IF TIME OUT 
JSR PC, CHKAMB [TSSR AMBIGOUS? 
BCC 10$ 7BR IF YES 
BIT #SC.RO [SPECIAL CONDITION SET? 
BEQ 15$ 


BIT #SSCE!BIE!RMR!NXM>,RO TANY ERROR BITS SET? 
10$: CLC *SET FAILURE 
20 : 


SEC :SET SUCCESS 
RTS PC ‘RETURN TO CALLER 


SEQ 0087 


za—- 


| , K 
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2 
2307 


POMENoPoNoNoNnoPonofonofnory»s 
SSH sss a st 


MON 


= CHECK FOR NONEXISTENT MEMORY 


016510 000004 
000200 000006 


000002 


paar Ser Sear Pr Sar ee Per Per Pers 
AAAAAAAOAOO 
MM 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
01 





005737 


016520 


000004 


002162 
002176 
002210 


- SBTTL 


F ges 


SEQ 0088 


~ CHECK FOR NONEXISTENT MEMORY 


i+ 
: ROUTINE TO TEST FOR A =e IN THE ye (R1) THRU (R2). 
RETURN, IF 1, (R1) = NEXM SS. 


; = 0. ALL ” DONE SSES one 
CALL: mov ADR1,R1 
3 V ADR2, *R2 
; 4 PC .NXM 
: RETURN :TEST “'C’’ AND PROCEED. 
KNXM: MOV #2$,a84 : SET BUSERR VECTOR. 
MOV #PRI04,a%6 
CLR R3 LAG. 
1$: TST (R1) TES THE ADDRESS(ES). 
TIF ANY TRAP, CONTINUE AT 2$. 
CMP R1,R2 Z OTHERWISE CONTINUE HERE. 
BEQ 3$ BR IF FINISHED (NO NEXM'S). 
ADD #2,R1 SET NEXT ADDRESS... 
BR 1$ t..eAND CONTINUE. 
2s: COM R3 3GOT ONE, SET FLAG... 
MOV #3$, (SP) 
RTI y..-AND DISMISS INTERRUPT... 
3$: CLRVEC #4 y..eAND GIVE BACK THE VECTOR. 
MOV 4,RO 
TRAP  C$CVEC 
TST R3 :DID TCH ONE ?? 
BEQ +6 =NO, "'C’* ~ 6 SKIP NEXT. 
SEC :YES, “C’' = 1, (R1) = NEXM ADDR. 
RTS PC 


-SBTTL TSTLOOP = CHECK ITERATION COUNT 


: SUBROUTINE TO exe cure oeet ITERATIONS. 


3 EXIT WITH “'C’* SET AND LOOP COUNT NON-ZERO. 


ALLOWED 
; LOOP COUNTER IS SET BY BEGIN. TEST’ MACRO. 


3 CALL: LOOPTO . ARG 
TSTLOOP:: 
TST NOITS : ITERATIONS INHIBITED? 
BNE 1$ : ‘ 
TST ave > NO. 
BMI 1$ [LOOPS DISALLOWED IN QUICK PASS. 
DEC LOOPCNT : BUMP LOOP COUNTER. 
1$: cue o ;LOOP DISALLOWED, OR DONE. 
2$: SEC ;LOOP ENABLED. 
3$: RTS PC 


a-, 


2 

2359 016570 
2360 016570 
2361 016572 
2362 016576 
Seer 016608 


SSFF-S 
EReREreeS 


ESS RSS. 
gaestenese 


aeeees 


a ee ee ee 
>] 

oonwn 

ROoRR 


Soooooooooooooooceoooooo 


an 


TSV3_ = GLOBAL AREAS 
TSTLOOP = CHECK ITERATION COUNT 


 # 


MACRO M1113 25-MAY-82 08:43 PAGE 55 


160000 


160001 


177777 
002174 


003170 


BR 
003170 3$: ais 


003104 2S: HOV 


SEQ 0089 


«SBTTL TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 


; PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT TEST” TO INDICATE THE NUMBER OF TESTS 

THE CURRENT RUN SEQU 
; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


¢ INPUT: 
a RO POINTER TO TEST ID ASCIZ STRING 
OUTPUT: 
; RS ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 
; TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 


SSIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


TSTSETUP: : 
MOV RO,-(SP) SAVE THE TEST ID MESSAGE 
CLR SIFLAG : CLEAR SOFT INIT’ FLAG 
CLR ERRK : CLEAR LOCAL ERROR COUNTER. 
CLR = EXTA > CLEAR ERROR EXTENSION FLAG. 
CLRB  —sINTMASK : CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN,RO : GET THE UNIT NUM 
ASL RO ¢ ss. AND MAKE IT A WORD OFFSET. 
TST NODEV : DID STARTUP FIND THE DEVICE? 
BEQ 4$ : BR IF ves 
BPL 3$ BR IF NOT IDLE 
BIS #160000, ERTABL(RO) : : HAS ERROR IN THE ERROR TABLE 
ERRDF 1,NXR,NXRERR  ; NO DEVICE HERE == PRINT IT 
TRAP CSERDF 
.WORD 1 
“WORD NXR 


- WORD een 


#160001 .ERTABL (RO) : FLAG ERROR IN THE ERROR TABLE 
RRDF 2,NOINIT : DEVICE NOT IDLE 
TRAP SERDF 
WORD 
“WORD NOINIT 
WORD 
#-1,DUFLG : DROP THE UNIT 
ODU _—srUNI'TN 
V UNITN,RO 
RAP  C$DODU 
DOCLN ; ABORT THE PASS 


i et 





SV3_= GLOBAL AREAS 


Base Boy 


016 
2385 016742 
2386 016746 

016746 


016752 
2387 016754 
2388 016756 
2389 016762 
2390 016764 
2391 


104444 
000423 


ou 
28% 

QLne 
Susw 
onNuo— 


C000 oO 
—} ah ~— 
Ronn 
NEONN 
=OnS 
NOAAX 


& 
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001000 


016764 
000002 


000006 
002206 


002204 


002200 
123 


TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 


4$: 


1$: 


5$: 


045 TNAM: 


TRAP 
BR 


RFLAGS 
AP 


CSDCLN 
5$ 


(SP) + 
aaa cans 
"ZSZTZA Test’ 


: GET THE OPERATOR FLAGS. 
: PRINT THE TEST NUMBERS? 


; BR IF N 
3GET THE ID MESSAGE 
;DISPLAY THE TEST ID 


3 BUMP TEST COUNTER. 
PRIORITY THAT OF DEVICE 


sFIX UP THE STACK 
: ADDRESS OF TSV REGISTERS ON UNIBUS 





i 
ee 


on, 





2399 017002 
2400 017006 
2401 017010 

017010 


017030 
sete 017034 
2404 017036 


2405 017040 
2406 017057 


2422 017156 
sos? 617160 


2425 Hay 5 


2434 o17660 
2435 017222 
36 


TSV3 = GLOBAL AREAS 
TSTEND 


See 
ERS 


—oooo 
es = 
NOGOo fun— 


Se 
Ss 


oie 
sss 


3 
012737 


104455 
000004 
017057 
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- PRINT ERRORS RECEIVED 


020000 


017036 


040 
122 


017036 
002174 
003170 
007777 


002174 
003170 
170000 
002166 
017036 002164 
000040 


177777 003104 


-SBTTL TSTEND 


7 


- PRINT ERRORS RECEIVED 


; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
‘ IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 


iSTEND: mo RO 


1$: 
ERRK: 
ESUM: 
EMAXDU: 


0 
eASCIZ /%A %D%ZA_ERRORS/ 


RO, WIER 
#ESUM,ERRK 
E ) 


; BR IF ““IER*’ NOT SET. 
: PRINT ERROR COUNT. 


LOCAL ERROR COUNT. 


ly /ERROR LIMIT REACHED == DROPPING UNIT/ 


- SBTTL 


INCERK 


~ INCREMENT LOCAL ERROR COUNT 


; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


iNCERK: 


1$: 


CKEMAX: 


1$: 


INC 
MOV 


RO. =(SP) 
+ hia 


#ERTABL .RO 
(RO) 
#7777, (RO) 
1$ 

(RO) 
(SP)+,RO 
PC 


RO,~(SP) 
UNiT N,RO 


ERTABL (RO), RO 
a RO" 


Nye P 
RO. GERRMAX 


ERRK ,LERRMAX 
2s 


RO 
CSRFLA 
#1DU,RO 
2$ 
#=1,DUFLG 
EMAXDU 
CSERDF 
EMAXDU 


Bete Se Ge Ge Be Se Be Se Se 


; INCREMENT LOCAL ERROR COUNT 
SAVE RO 
; GET UNIT NUMBER, 
AND MAKE I 
: RO GETS ADDRESS OF ERROR pe peat 


TA WORD OFFSET. 


INCREMENT THE DEVICE ERROR 
oy ie OVERFLOW THE FIELD? 


BR IF NO. 

YES =~ BACK IT UP TO 7777. 

RESTORE 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

ee. AND MAKE IT A =— OFFSET 

GET ERROR TABLE ENT 

EXTRACT ERROR COUNT. FIELD 

IS oe LIMIT EXCEEDED FOR THIS UNIT? 
IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
GET OPERATOR FLAGS 

IS et INHIBITED? 

BR iF 


NO == DROP THE UNIT 


oO, 





B 8 
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INCERK = INCREMENT LOCAL ERROR CO SEQ 0092 

017244 0060000 .WORD 0 

2439 017246 DODU —*UNITN 
017246 013700 002174 MOV UNITN,RO 
017252 104451 TRAP C$DODU | 

2440 017254 DOCLN 
017254 104444 TRAP  C$DCLN 

2441 017256 012600 2$: MOV (SP)+,RO : RESTORE RO 

2442 017260 000207 RTS PC * RETURN TO CALLER 


24h 





CKDROP 





TSV3_= GLOBAL AREAS 
~ CHECK IF UNIT SHOULD BE DROPPED 


448 

2449 017262 
2450 017264 
2451 017274 


14 
017320 
2457 Ot ess 


2458 017324 
2459 017326 
460 


467 
2468 017330 
2469 017330 
2470 017334 
2471 






004737 
000207 
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: .SBTTL CKDROP = CHECK IF UNIT SHOULD BE DROPPED 
: CHECK IF UNIT SHOULD BE DROPPED 


¢KDROP: MOV _—=RO, = (SP) 
FORCERROR. 1$,NOTSSR 


RFLAGS 

TRAP CSRFLA 
000040 BIT #1DU,RO 

BNE 1$ 

MOV (SP) ,RO 
177777 003104 MOV #-1,DUFLG 

DODU ITN 
002174 MOV UNITN,RO 

TRAP CS$DODU 

DOCLN ABORT THE PASS 

TRAP CSDCLN 

1$: MOV (SP)+,RO 
RTS PC 


~SBTTL CONFIG = DETERMINE CONFIGURATION OF SYSTEM 
; SUBROUTINE = DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


CONFIG: 
016054 JSR PC, SOF INIT 
RTS PC 


SEQ 0093 


a4 





2494 017374 
2495 
2496 


TSV3 = GLOBAL AREAS 
KTON ,KTOFF 
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~ ENABLE/DISABLE MEMORY MANAGE 


005124 
000001 


003124 


000000 


177572 


177572 





-SBTTL KTON,KTOFF 


- ENABLE/DISABLE MEMORY MANAGEMENT 


: SUBROUTINE = ENABLE MEM MGT. 


KTON: 


1$: 


TST 
BEQ 
MOV 
RTS 


KTFLG 
#1,SRO 
PC 


F Gor KT? 
+ YES. ENABLE KT11. 


: SUBROUTINE = DISABLE MEM MGT. 


KTOFF : 


1$: 


KTFLG 
1$ 


#0,SRO 
PC 


GOT KT11? 
NO. 


; DISABLE KT. 


SEQ 0094 


n- 









TSV3_= GLOBAL AREAS 
SE TMAP 


Nm MMR roronTrn 


nN 
ror 
Wes 


Se et 
WN 6 OOBNAULSWN—O 


Mmroren— 


2526 017442 
2527 017446 
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= SETUP PAR6 MAPPING 


003124 


000177 
003124 


172354 
160000 
140000 


-SBTTL SETMAP = SETUP PAR6 MAPPING 


ETHIS ROUTINE § SETS UP KERNEL PAR6 TP_HANDLE 
:IS RETURNED BIASED TO PAR6. 


SINPUTS: 


10$: 


RO 
CARRY 


SAVREG 
T 


DRESS. THE OFFSET INTO THE PAGE 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 


3SAVE_R1-R4 UNTIL NEXT RETURN 


KTFLG :SYSTEM HAVE ABOVE 28K? 

10$ BR IF NO 

gt eRe SAVE LOW ORDER BITS 

RO CONVERT WORD ADDRESS TO 32W BLOCKS 
R1 sMAKE IT DOUBLE PRECISION 

#177,R1 sALINE FOR LOWER 4K BOUNDAR 

R1,KTFLG 


:HIGHER THAN EXISTING MEMORY? 
BR IF YES 


UF od py ZSETUP MAPPING REGISTER PAR6 
#160000 ,R2 : SETUP ois AC rent InN PAGE 
#140000. *R2 D IN PAR6 BIAS 
R2,R0 Re TURN IN RO 
[SET SUCCESS 
15$ 3 
sSET FAILURE 
PC RETURN 


SEQ 0095 


nxn 
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FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN SEQ 0096 


nx- 





3539 ~SBTTL FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN 
9341 : FILL MEMORY WITH A BACKGROUND PATTERN 
254 : INPUTS 
2544 3 
2545 : RO = BACKGROUND PATTERN 
2546 : FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
2547 : KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
2549 : OUTPUTS: 
2550 3 
2551 : NONE 
2358 t 
255 : 
2554 017502 FILLMEM 
2555 017502 SAVREG ZSAVE R1-R5 UNTIL NEXT RETURN 
2556 017506 004737 017354 JSR PC .KTOFF [DISABLE KT. 
2557 017512 010003 MOV 0,R3 :COPY TEST PATTERN 
2558 017514 013701 003116 MOV FREE,R1 ‘GET FIRST FREE LOCATION 
2559 017520 013702 003120 MOV FRESIZ,R2 ‘SIZE OF FREE SPACE BELOW 28k. 
017524 010321 10$: MOV 3, (R1S+ [STORE A BACKGROUND WORD 
2561 017526 005302 DEC 2 [DONE ALL MEMORY IN FREE SPACE? 
562 017530 003375 BGT 10$ :BR IF NO 
563 017532 005737 003124 TST KTFLG : GOT KT? 
2564 017536 001477 BEQ 55$ : NO. GET OUT. 
2565 017540 004737 017336 JSR PC,.KTON : YES. ENABLE KT. 
2566 017544 005 CLR 0 ‘HIGH ORDER ADDRESS START 
2367 017546 013701 00314¢ 1 PST32u,R1 2GET >28K START ADDRESS (IN 32W BLOCKS) 
2569 CLC :CLEAR C BIT 
2570 ROL R1 : CONVERT BLOCKS TO WORDS 
3571 ROL RO MAKE IT DOUBLE PRECISION 
2573 017616 004737 017376 JSR PC, SETMAP ZSETUP PAR6 MAPPING REG 
2574 017622 010320 30$: MOV R3.(RO)+ :STORE TEST PATTERN IN 328K ADDRESS 
2575 017624 020027 160000 CMP RO. #160000 3EN D OF PAR6 MAPPING AREA? 
2576 017630 103774 BLO 30$ * WO 
2577 017632 162700 020000 SUB #20000,RO [BACKUP INTO PAR6 MAPPING BEGIN 
2578 017636 062737 000200 172354 ADD #200, a#KIPARG ;POINT TO NEXT 4K BLOCK >28k. 
2579 017644 023737 172354 003124 CMP @*KIPARG,KTFLG END OF MEMORY? 
2580 017652 001427 BEQ 50$ ; 
2581 017654 005737 003136 TST T23A ; 3A? 
582 017 001407 BEQ 35$ 3NO KEEP GOING 
2583 017662 013704 177572 MOV SRO,R4 :GET 444 CONTENTS 
2584 017666 042704 177761 BIC #177761, R4 [CLEAR ALL BUT PAGE NUMBER 
2585 017672 022704 000016 CMP #16,R4 [SEE IF PAGE 7 
2586 017676 001415 BEQ SEXIT If THERE 
2587 017700 005737 003140 35$: ‘TST 1238 *11/238? 
2588 017704 00141 BEQ 45$ *NO KEEP GOING 
2589 017706 023727 172354 007600 CMP @#K IPAR6, #7600 ZREACHED 18 BITS? 
2590 017714 103001 BHIS 40$ 
2591 017716 000403 BR 5$ SF oft 
2592 017720 012737 000020 172516 40$: MOV #20,SR3 Ser bit "RELOCATION 
2593 017726 000137 017622 45$: JMP [KEEP GCING ON ETC. 
2594 017732 004737 017354 50$: JSR PC .KTOFF : BISABLE KT. 
2595 017736 000207 55$: RTS PC 





TSV3_ = GLOBAL AREAS MACRO M1113 25-MAY-82 08:43 PAGE 60-1 
FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN 


3559 


SEQ 0097 


x= 


8 
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CMPMEM = COMPARE MEMORY TO BACKGROUND PATTER SEQ 0098 
3599 .SBTTL CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 
3+ 
$00) ; COMPARE MEMORY WITH A BACKGROUND PATTERN 
260 : INPUTS: 
2604 8 
2605 : RO = BACKGROUND PATTERN 
2606 ; FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
2607 : KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
2609 : OUTPUTS: 
2610 3 
2611 : CARRY = SET IF NO ERROR 
sole $ CARRY = CLR IF ERR 
3616 : IMPLICIT OUTPUTS: 
2616 : ERRHI = ERROR HIGH ADDRESS 
2617 ; ERRLO = ERROR LOW ADDRESS 
2618 ; EXPD = EXPECTED DATA 
2619 : RECV = RECEIVED DATA 
2621 017740 iMPMEM: 
2622 017740 SAVREG sSAVE R1-R5 te — RETURN 
2623 017744 010003 MOV RO,R3 : COPY TEST PATTERN 
2624 017746 004737 017354 JSR PC .KTOFF :DISABLE K 
2625 017752 013701 003116 MOV FREE,R1 GET PrRST. FREE LOCATION 
2626 017756 013702 003120 MOV FRESIZ,R2 [SIZE OF FREE SPACE BELOW 28k. 
2627 017762 020311 10$: CMP R3, (RI) 3FREE SPACE LOCATION EQUAL TO EXPD? 
2628 017764 001411 BEQ 1 F YE 
2629 017766 010137 002232 MOV R1,ERRLO SAVE ADDRESS IN ERROR 
2630 017772 005037 002230 CLR ERRHI [NO HIGH ADDRESS 
2631 017776 010337 002224 MOV R3,EXPD SAVE EXPD FOR ERROR REPORT 
2632 020002 011137 002226 MOV (Ri) ,RECV ; SAVE RECV FOR ERROR REPORT 
2633 020006 000474 BR 50$ 
2634 020010 005721 15$: TST (R1)+ [POINT TO NEXT ADDRESS 
2635 020012 00530 DEC R2 [DONE ALL MEMORY IN FREE SPACE? a 
2636 020014 00336, BGT 0s “BR IF NO 
2637 osonlg 005737 003124 TST KTFLG : GOT KT? 
2638 020022 001472 BEQ 55$ 3 NO. GET OUT. 
2639 020024 004737 017336 JSR PC,KTON YES. ENABLE K 
2640 020030 005000 CLR RO ‘HIGH ORDER ADD DRESS STAR 
2641 020032 013701 003144 MOV PST32W,R1 [GET >28K START ADDRESS UN 32W BLOCKS) 
Z64¢ 000006 .REPT 6 
264 ROL R1 : CONVERT BLOCKS TO WORDS 
2644 ROL : RO [MAKE IT DOUBLE PRECISION 
6 020066 042701 000177 BIC #177,R1 ALINE 4K BOUNDARY 
2647 020072 010046 MOV RO,-(SP) SAVE HIGH ORDER 
2648 020074 010146 MOV R1,-(SP) TSAVE LOW ORDER 
2649 020076 004737 017376 JSR PC, SETMAP Sr ure PAR6 MAPPING REGISTER 
2650 020102 010004 MOV RO, [COPY ADDRESS BIASED TO PAR6 
51 020104 012601 MOV (SP)+,R1 SRESTORE LOW ORDER IN 
2652 020106 012600 MOV (SP)+-RO SRESTORE HIGH ORDER IN NON PAR6 FORMAT 
653 020110 020314 30S: CMP R3, (RS) SABOVE 28K LOCATION EQUAL EXPD? 
2654 020112 001411 BEQ 32 ‘BR IF YES 
2655 020114 010037 002230 MOV RO, ERRHI SSAVE HIGH ORDER IN ERROR 





vu— 












2673 020214 
2674 020216 
2675 


TSV3_= GLOBAL AREAS 
CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 


010137 
01 
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Oe 32 
002224 
002226 
000002 


000002 
160000 


020000 
000200 
172354 
017354 


017354 


172354 
003124 


32$: 


50$: 


55$: 
60$: 








Rt -ERRLO :SAVE LOW ORDER IN ERROR 
[SAVE EXPD FOR ERROR REPORT 

tnd), RECV :SAVE RECV FOR ERROR REPORT 

#2,R1 CUPDATE NON PAR6 ADDRESS 

RO [MAKE IT DOUBLE PRECISION ADD 

#2,R4 [UPDATE PAR FORMAT ADDRE 

R4 #160000 SEND OF pars MAPPING AREA? 

#20000,R4 ‘BACKUP INTO PAR6 MAPPING BEGIN 

#200, a#KIPAR6 :POINT TO NEXT 4K BLOCK >28K. 

Q4KIPARG, KTFLG ZEND OF MEMORY? 

PC .KTOFF [TURN OFF MEMORY MAPPING 

ie *SET FAILURE 

PC, KTOFF STURN OFF MEMORY MAPPING 


sSET SUCCESS 
PC 


SEQ 0099 


ee | 














27109 020252 
2711 


TSV3_= GLOBAL AREAS 
REGSAV = SAVE R1-R5 ON STACK 
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000012 





-SBTTL REGSAV = SAVE R1-R5 ON STACK 


ROUTINE TO 
SAVE R1 THROUGH RS ON THE STACK 
SCALLING SEQUENCE: 


: JSR RS ,REGSAV 


THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
cee steRs: RETURNS CONTROL TO THIS ROUTINE TO RESTORE 


[THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
[CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 
MOV 


MOV R5,~(SP) 
MOV 10. (SP) RS 
JSR PC,a(SP)+ 
MOV 


MOV (SP)+,R4 
MOV aaa 


oe ad 





TSV3_= GLOBAL AREAS 
GETPAT 


731 
2732 020254 
2733 020254 
2734 020260 
020260 


2735 020300 

020300 
2736 020302 
2737 020306 


2742 
2743 020310 
2744 020312 
2745 
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- GET 8 BIT PATTERN FROM OPERATOR 


.SBTTL GETPAT = GET 8 BIT PATTERN FROM OPERATOR 
[ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
S INPUTS: 


: NONE. 
OUTPUTS: 
: RO OCTAL NUMBER FROM THE OPERATOR 
SCALLING SEQUENCE: 
: JSR PC,GETPAT 
GETPAT:: 
SAVREG “SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,O, 377,0,377,NO 
TRAP C$GMAN 
R 10000$ 
“WORD PATDAT 
“WORD TSCODE 
“WORD DATASC 
“WORD 377 
"WORD TSLOLIM 
“WORD TSHILIM 
10000$: 
BNCOMPLETE 1$ :RETRY IF ERROR 
MOV PATDAT,RO ;DATA PATTERN FROM OPERATOR 
RTS PC *RETURN TO CALLER 


3+ 
sLOCAL DATA AREA 


PATDAT: .WORD 0 TEMPORARY STORAGE FOR DATA 
DATASC: ey "ENTER DATA PATTERN’ 





oe 


8 
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GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE SEQ 0102 
3747 ~SBTTL GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 
3¢ 
2749 3 
750 SROUTINE TO ISSUE A MENU AND GET 
gr} :THE OPERATOR'S RESPONSE. 
He}, : INPUTS: 
2755 : RO ADDRESS OF ASCIZ STRING OF MENU 
2736 : R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
2738 S OUTPUTS: 
2760 : RO NUMBER OF THE OPERATOR'S SELECTION 
$766 :- 
276 
2764 020336 GETSEL:: 
2765 020336 SAVREG SAVE GENERAL REGISTERS 
2766 020342 910002 MOV RO,R2 [SAVE THE MENU ADDRESS 
2767 020344 01020 1$: MOV R2.R3 ‘START OF MENU STRING 
2768 020346 005713 2$: TST (R3) sEND OF ASCII ? 
2769 020350 001412 BEQ 3$ ZBRANCH IF ALL LINES DISPLAYED 
2770 020352 PRINTF #SELASC,(R3)+ :DISPLAY THE MENU 
020352 012346 MOV (R3)+,-(SP) 
020354 012746 020522 MOV #SELASC,=(SP) 
020360 012746 000002 MOV #2,-(SP) 
020364 010600 MOV SP,RO 
020366 104417 TRAP _— C$PNTF 
020370 062706 000006 ADD #6,SP 
2771 020374 000764 BR 
2772 020376 3$: GMANID MENASC,MENRES,D,-1,0,-1,NO 
020376 104443 TRAP  C$GMAN 
06 10001$ 
020402 020556 .WORD MENRES 
04 .WORD TSCODE 
020406 02052 .WORD MENASC 
020410 177777 .WORD = 
020412 000000 <WORD TSLOLIM 
020414 177777 .WORD TSHILIM 
020416 10001$: 
2773 020416 BNCOMPLETE 1$ ZRETRY IF ERROR 
020416 103352 BCC 
2774 020420 013700 020556 MOV MENRES ,RO 2GET THE OPERATOR: s REPLY 
2775 020424 020001 CMP RO,R1 :COMPARE TO MAXIMUM ALLOWED 
2776 020426 101411 BLOS 5$ [BRANCH IF or 
2777 0204 PRINTF #MENERR ‘DISPLAY ERROR MESSAGE 
020430 012746 020454 MOV #MENERR,=(SP) 
20434 012746 000001 MOV #1,-(SP5 
20440 010600 MOV SP,RO 
020442 104417 TRAP C$PN 
020444 062706 000004 ADD #4,SP 
2778 020450 000735 BR gRETR 
2779 020452 000207 5$: RTS PC RETURN TO CALLER 
2780 020454 045 116 045 MENERR: .ASCIZ “ENTA #** Menu Selection Too Large ***' 
2781 020522 045 116 045 SELASC: .ASCI2 T’ 
2782 020527 105 156 164 MENASC: .ASCIZ ‘Enter Menu Selection: ° 





»— 
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2783 
2784 020556 000000 


MACRO M1113 25-MAY=82 08:43 PAGE 64-1 


GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 


-EVEN 
MENRES: - WORD 


0 


SEQ 0103 


= «8 


TSV3_= GLOBAL AREAS 
CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 


7 
2808 020560 
2809 020560 
2810 020564 
020564 
2811 020566 
020566 
2812 020570 
020570 
020574 
020600 
020602 
020604 
2813 020610 
2814 020612 
2815 
2816 020614 
2817 


104450 
103411 
012746 
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020614 
000001 


000004 


116 


045 


-SBTTL CHKMAN 


SEQ 0104 


~ CHECK MANUAL INTERVENTION LEGALITY 


[ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 


: INPUT: 


CHKMAN: : 


1$: 
NOMAN: 





OUTPUT: 


NONE. 


CARRY 


SIDE EFFECTS: 


0 MANUAL INTERVENTION NOT ALLOWED 
1 MANUAL INTERVENTION IS OK 


A MESSAGE IS DI yn WARNING THAT TEST IS 
NOT EXECUTED IF 


ALLOWED. 


SAVREG 

MANUAL 

TRAP CSMANI 
BCOMPLETE 1$ 
BCS $ 
PRINTF OMAN 
MOV #NOMAN, ~(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #4,SP 
CLC 

RTS PC 
-ASCIZ 


even 


UAL INTERVENTION IS NOT 


s SAVE THE REGISTERS 
3SEE IF MANUAL INTERVENTION OK 


BRANCH IF ALLOWED 
PRINT THE WARNING MESSAGE 


CLEAR CARRY FOR ERROR 
:RETURN 


‘ZENZA *** Manual Intervention not Allowed - Test Aborted *+**' 


om 














TSV3_ = GLOBAL AREAS 


2819 
82 


Nn 
- 
Oo 
nm 
oO 
~N 
~ 
o= 
—_ 
st 
WAWG 
~~ 


gessessaencs 
on 
w 
™N 


6 
2827 0207350 
2828 0207 
2829 02074 
2830 02075 
2831 020752 


MW NPIWIP =P 
be | 
WOW 
~wrun~ 


snes 
WA 
Nou 
Rese 

Ssess 
ERE 
ooo 
—_—O-— 
3 


Nm 

@ 

Ww 

~o 

i=] 

Le) 

33 

$c 
= 

mor 


012746 
00 


012746 
012746 
010600 
104417 
062706 
000207 


WRN “ 
NeRVawwor as 
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00312 
177520 


000002 
016456 


177520 
000001 
177520 
177520 


oon 
170000 


005550 
000001 


000004 
003140 


005641 
000001 


000004 


ENVIRN = SETUP FREE DIAGNOSTIC SPACE 


003116 
003120 
003120 


002120 


~SBTTL ENVIRN 


ee er 


- SETUP FREE DIAGNOSTIC SPACE 


: SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


ENVIRN: MEMORY R0 
TRAP 


10$: 


15$: 


208: 


40$: 


R EM 
MOV RO FREE 

ADD 2° FREE 

MOV (RO) ,FRESIZ 
SUB #4, FRESIZ 
MOV LSUNIT,R2 
SUB #7, FRESIZ 
DEC 2 

BNE 10$ 

MOV FREE ,RO 
ADD FRESIZ,RO 
SUB ; 

MOV RO. FREEHI 
NOP 

MOV #BDVPCR,R1 
MOV , 

ADD c 

JSR PC. XNXM 
BCC 15$ 

BR 40$ 

MOV BDVPCR,R1 
ADD #1,R1 

MOV #BDVPCR, R2 
MOV SDVPCR.R3 
CMP R1,R3 

BNE 20$ 

INC T23A 

BIC #170000, LSHIME 
PRINTF 4#M8186 

MOV #8186,-(SP) 
MOV #1,-(SP 
MOV SP-RO 

TRAP _— CSPNTF 

ADD #4,SP 

BR 40$ 

INC 1238 

NOP 

PRINTF 189 

MOV #8189, (SP) 
MOV 1,-(SP 
MOV SP_RO 

TRAP _— CSPNTF 

ADD #4,SP 

RTS PC 


; GET 1ST FREE ADDRESS... 
3++eAND WORD COUNT. 


3 GET NUMBER OF UNITS 
3 TAKE AWAY 7 WORDS PER UNIT 


GET FIRST FREE ADDRESS 
POINT TO LAST FREE ADDRESS 
UP 1 WORD 


:BACK 
STORE LAST FREE ADDRESS 


SRAAARAAAARARAAARARERARRAERRRRREREEEREEREEERE 


3GET BDV11 PCR ADDRESS 
TO R2 


Y 

3SET THE RANGE 

:SEE_IF apt ONE 

30K TO SET FLAGS 

RETURN WITH FLAGS CLEAR 
7SAVE PCR CONTENTS 
ADD ONE TO IT 

7GET BDV11 PCR ADDRESS 
ETRY TO. TO vy TO IT 


aD A T CHANGE? 
rt th oo 1" 11/238 


LAG 
:SUPERV SOR sees BE WRONG 
BR 40$ F ELEASE 
TELL THE. SYSTER TYPE 


Hs te 
sSET xe 

ak 408 F RELEASE 
TELL THE OSySTEN TYPE 


;RETURN 


‘ 
‘ 
? 


| 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0106 
861 .SBTTL KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 
34 
286 $ 
2864 SROUTINE TO INIT KT=11 
2865 : 
2866 i 
2867 
2868 021134 KTINIT: 
2869 021134 005037 003124 CLR KTFLG : INIT >28K MEMORY FLAG 
2870 021140 005037 003126 CLR KTENABLE : INIT TEST >28K FLAG 
2871 021144 023727 002120 001577 CMP LSHIME,#1577  : GOT ENOUGH MEMORY (>28K)? 
2872 021152 101444 BLOS 98 ; 
2873 021154 013700 000004 MOV a#ERRVEC,RO t SAVE OLD ERR WEC PTR. 
2874 021160 012737 021252 000004 MOV Wes. @WERRVEC =: SET ERR VEC PTR 
2875 021166 005737 177572 TST SRO : GOT KT11? 
2876 021172 900240 NOP : (TRAP IF NO). 
2877 021174 013737 002120 003124 MOV LSHIME, KTELG : YES. SET KT FLAG. 
2878 021202 042737 000177 003124 BIC #177, KTFLG : 
2879 021210 010037 000004 MOV RO, A#MERRVEC : RESTORE OLD ERR VEC PTR. 
2880 021214 005000 CLR RO ; RO = DATA. 
2881 021216 012701 172340 MOV ARO,R : REGS PTR. 
2882 021222 012761 077406 177740 1$: MOV W77606 AD : Ser. "DESCRIPTOR REG. 
2883 021230 010021 MOV Riss 3 SET KIPAR REG. 
2884 021232 062700 000200 ADD Rb0rR : BUMP. AR DATA BY “4K"’. 
2885 021236 020027 002000 CMP to 5000 : AT "1/0"? 
2886 021242 001367 BNE 1$ : NO. 
2887 021244 012741 177600 MOV #177600,-(R1) + YES. SET KTPAR7 FOR 1/0. 
2888 021250 000405 BR 9$ 
2890 021252 012716 021260 2$: MOV #6$, (SP) : SET UP RETURN 
344) 021256 000002 RTI ; RTI TO NEXT LOCATION 
2893 021260 010037 000004 6$: MOV RO, @#ERRVEC : RESTORE OLD ERR VEC PTR. 


2895 021264 000207 9$: RTS PC 
2896 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0107 
2898 3 
2899 3 SUBROUTINE TO SET EXTENDED FEATURES SWITCH 
H : Requires that SOFINIT and WRICHR have been done previous to call. 
2903 3 
2904 ; INPUTS: 
2905 ; RS CURRENT UNIT NUMBER 
2906 sOUTPUTS: 
2907 : The Extended Features Switch is set. 
2908 3 
2909 3= 
2910 
seit 021266 INVERT: : 
2913 021266 005737 002220 TST EXTFEA : IS SWITCH SET? 
2914 021272 001020 BNE 1$ 3 ves. EXIT STAGE RIGHT! (or the next one outa town!) 
2915 021274 012737 100206 021340 MOV #100206, CMDPKT 3; WRT SUB-SYS MEM CMD 
2916 021302 012737 021350 021342 MOV #WSMBK, KT+2 ; nSG BUF ADDR 
2917 021310 012737 06 021346 Vv CMDPKT+6 : BYTE COUNT 
2918 021316 012737 100010 021350 MOV #100010, WSMBK : INVERT THE SWITCH 
2919 021324 012704 021340 MOV #CMDPKT ,R4 3: SET CMDPKT INTO R4 
2920 021330 004737 010742 JSR PC,WRTCHR ; 00 IT 
2921 021334 000207 1$: RTS PC : RETURN 
2922 
2923 
pata $ COMMAND PACKET. 
soe 021340 . 2 <.+3>8177774 sMUST BE ON MOD 4 BOUNDRY. 
2928 021340 000000 CMDPKT:: 0 31ST WORD IS TSOS COMMAND. 
2929 021342 000000 0 [2ND WORD IS THE BUFFER LOW ADDRESS. 
2930 021344 000000 0 73RD WORD IS THE BUFFER HIGH ADDRESS. 
$33) 021346 000000 0 4TH WORD IS THE BYTE/RECORD/FILE COUNT. 
2933 
ooee 3 WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
2936 021350 000000 WSMBK:: 0 21ST WORD:: SEL 0 
2937 021352 000000 0 z2ND WORD:: SEL 2 
2938 021354 000000 0 33RD WORD:: SEL 4 
2939 EVEN 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0108 


294 3 
Soe7 : SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
2945 g 
2946 s INPUTS: 
2947 : OUTPUTS: 
2948 : The NXMFLG is set if we can test. 
9 : The NXMLO and NXMHI addresses are setup. 
spay ge 
2952 021356 MEMCK 
2954 021356 SAVREG :SAVE_THE REGISTERS 
2955 021362 005037 003130 CLR NXMFLG EAR THE FLAG 
2956 021366 005037 003132 CLR NXMLO CLEAR THE TEST ADDRESS LO 
2957 021372 005037 003134 CLR NXMHI 7CLEAR THE TEST ADDRESS HI 
2958 021376 005737 003140 TST 7238 :1S IT A 11/238? 
2959 021402 001407 BEQ 1$ :NO 
1404 023727 002120 007777 CMP LSHIME #7777 t GREATER THAN 128K 
2961 021412 103406 BLO 3 NO 
021414 004737 021532 JSR PC NXMTST ZSETUP THE ADDRESS 
2963 021420 000427 BR 138— [SET THE FLAG AND EXIT 
2964 021422 005737 003136 1$: TST T23A 31S IT A 11/23A? 
2965 021426 001413 BEQ 4$ 
2966 021430 023727 002120 005777 2$: CMP LSHIME #5777 ;GREATER HAN 96K 
2967 021436 101023 BHI 14$ YES, 23 Nee WITH 128K MEMORY 
2968 021440 023727 002120 003777 CMP LSHIME ,#3777 [GREATER THAN 64K BUT LESS THAN 92k? 
2969 021446 103403 BLO 4$ NO CHECK Mek 
2970 021450 004737 021532 JSR PC NXMTST :SETUP THE ADDRESS 
2971 021454 000411 BR ZSET THE FLAG AND EXIT 
2972 021456 023727 002120 001577 4$: CMP LSHIME 41577 ZGREATER THAN 24K BUT LESS THAN 64K? 
021464 103410 BLO 14$ ZNO, TELL THEM AND EXIT WITH FLAG CLEAR 
021466 004737 021532 JSR PC .NXMTST [SETUP THE ADDRESS 
2975 021472 062737 000077 003134 ADD #77 ,NXMHI FOOL THE | 11/02 & 11/03 
021500 005237 003130 13$: INC NXMFLG ‘SET THE F 
2977 021504 000411 BR 15$ ZEXIT 
2978 021506 000410 14$: BR 15$ ZNOP FOR PRINTOUT 
2979 021510 PRINTF #NOMEM + TELL OMEN t EXIT *#*NO PRINTesees 
021510 012746 005454 MOV #NOMEM, = (SP) 
021514 012746 000001 MOV #1,-(SP) 
021520 010600 MOV SP. 
021522 104417 TRAP  C$PNT 
021524 062706 000004 ADD #4,SP 
2980 021530 000207 15$: RTS PC RETURN 
2982 
2983 3¢ 
o98k : SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
2986 : OUTPUTS :NXMLO,NXMHI :SETUP WITH NXM ADDRESS 
5989 a 
2990 021532 013701 002120 NXMTST: MOV LSHIME ,R1 :GET TOP OF MEMORY 
2991 021536 062701 000200 ADD #200,Ri [MAKE IT 1/0 BLOCK OR OTHER NXM 
2992 021542 042701 000177 BIC #177.R1 
2993 021546 010102 MOV R1,R2 ;RESAVE RESULTS 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS SEQ 0109 
2994 000006 REPT 6 
2995 ASL R1 sPUT IN PLACE FOR XFER 
2996 -ENDR 
pad 021564 010137 003132 MOV R1,NXMLO zSAVE TEST ADDRESS LOW 
000012 REPT 10. 
2999 ASR R2 sPUT IN PLACE FOR XFER 
3000 -ENDR 
3001 021614 042702 177700 BIC #177700,R2 :DON'T WANT 


ILA 
3002 021620 010237 003134 MOV R2,NXMHI SAVE TEST ADDRESS HIGH 
3003 021624 000207 RTS PC ; RETURN 






TSvV4 = crs SECTIONS 


G 9 
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KTINIT = SETUP KT11 MEMORY MANAGEMENT REGISTERS 





-TITLE TSV4 = MISCELLANEOUS SECTIONS 


BGNMOD TSV4 
TSV4:: 


SEQ 0110 


“+ 







PROTECTION TABLE 


H 9 
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-SBTTL_ PROTECTION TABLE 
GNPROT 


3NO DEVICE PROTECTION REQUIRED. 


SEQ 0111 


aa 


I 
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INITIALIZE SECTION SEQ 0112 


eSBTTL INITIALIZE SECTION 


p++ 
sTHE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
_ THE BEGINNING OF EACH PASS. 


F "'START’’ OR "RESTART’', SET QUICK=PASS FLAG AND BUS-INIT. 
iF “CONTINUE'', NOTHING IS REQUIRED. 


3+ 
: INSERT TEMPORARY JUMP TO ODT 


SSS ret econ getonet - 


021636 BGNINIT 
021636 LSINIT:: 
021636 005037 002220 40$: CLR EXTFEA 
021642 005037 003130 CLR NXMFLG 
021646 012737 006354 002172 MOV #EPRT1,EPRTSW 7SET UP PRIMARY MESSAGE FOR REPLACEMENT 
41 071654 005037 003146 CLR SIFLAG SCLEAR ‘SOFT INIT’ ELAG 
42 021660 005037 003126 CLR KTENABLE ZCLEAR TEST ABOVE 28K F 
43 021664 005937 002274 CLR RAMSIZ [CLEAR RAM SIZE FOR RARERE ROUT INE 
44 021670 READEF #EF. CONTINUE 
021670 012700 000036 MOV #EF . CONTINUE ,RO 
021674 104447 TRAP _—C$REF 
45 021676 BNCOMPLETE 1$ 
021676 103023 Bcc 1 . 
46 021700 023737 002174 002012 CMP UNITN,LSUNIT ZUNIT IN RANGE? 
47 021706 103070 BHIS 4$ 7BR IF NO. 
48 021710 005737 003104 TST DUFLG [DROPPED UNIT? 
49 021714 100472 BMI NXTU ‘BR IF YES 
50 021716 013701 002174 MOV UNITN,R1 
51 021722 006301 ASL 
52 021724 005761 003170 TST ERTABL(R1) 
53 021730 001516 BEQ U 
54 021732 032761 040000 003170 BIT #81714, ERTABL(R1) :DROPPED? 
55 021740 001060 BNE NXTU 
56 02174 EXIT INIT zD0 NOTHING IF “‘CONTINUE’’. 
021742 104432 TRAP (C$EXIT 
021744 g .WORD 110030-. 
57 021746 1$: READEF W#EF .NEW 
021746 012700 000035 MOV #EF .NEW,RO 
021752 104447 CSREFG 
58 021754 BNCOMPLETE NXTU :TAKE NEXT UNIT If NOT NEW PASS. 
02 103052 BCC NXTU 
59 021756 READEF #EF.START 
021756 012700 000040 MOV #EF .START,RO 
021762 104447 CSREFG 
60 021764 BCOMPLETE 2$ 
021764 103404 
61 021766 READEF #EF .RESTART 
021766 012700 000037 MOV #EF .RESTART,RO 
02177e 104447 CSREF 
62 021774 BNCOMPLESE 1$ 
021774 103031 BCC 31$ 
63 021776 2s: 31ST PASS, BUS-INIT... 
64 021776 BRESET [BUS RESET. 


021776 104433 TRAP CSRESET 





aA 


a a 


J 
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INITIALIZE SECTION SEQ 0113 
65 0 905037 003206 CLR ss TSTCNT :NUMBER OF TESTS RUN IN PASS 

6 22004 005037 O0ee14 CLR = FATFLG CLEAR FAT ERROR COUNT 

67 022010 005037 003136 CLR =: T23A CLEAR 11/23A FLAG 

68 022014 005037 003140 CLR «= s«T238 CLEAR 11/238 FLAG 

69 : MOV #340,=(SP) 

70 ; MOV #208, =(SP) ETURN TO DEBUGGER 

71 ; JMP =. ODT ;:@aENTER THE DE ( 

2 022020 005037 003372 aos, LR SKIPT SéLEAR THE SUBTEST "SKIPPER 

74 022026 012737 177777 002176 MOV = #=1,QVP eee QUICK VERIFY... 

75 022032 004737 020710 JSR PC ENVIRN 3SET ENVIRONMENT. 

76 022036 004737 021134 JSR PC KTINIT SINITIALIZE KT MEMORY MANAGEMENT 
02 012700 003170 MOV —- #ERTABL ,RO a 

78 022046 005020 30$: CLR = (ROD+ CLEAR THE ERROR TABLE 

79 022050 020027 003370 CMP = RO, MERTABE 

80 022054 103774 BLO 80-308 

81 022056 000404 BR 4$ 

82 022060 005037 002176 31$: CLR aQvP 

83 022064 000137 022134 JMP = PASRPT GO REPORT THE STATUS 

85 022070 4$: 

86 022070 012737 177777 002174 NEWPAS: MOV = #=1,UNITN :INIT UNIT NUMBER, 

87 022076 005037 002212 CLR DEVCNT CLEAR COUNT OF DEVICES RUNNING 

88 022102 NXTU: BREAK 
022102 106492 TRAP —CSBRK 

89 022104 005237 002174 INC —UNITN z...AND SET NEXT UNIT NUMBER. 

90 022110 023737 002174 002012 CMP = UNI TN, LSUNIT 

91 Oee116 103403 BLO  —- SETU 

92 022120 012737 177777 003104 MOV  #=1,DUFLG 

93 022126 000401 BR 11$ 
022130 DOCLN ABORT, NO MORE UNITS. 
022130 104444 TRAP —CSDCLNN 

95 022132 000240 11$: NOP 

96 022134 PASRPT: 

97 022134 023727 002012 000001 CMP = LSUNIT,#1 HOW MANY UNITS SELECTED? 

98 022142 101752 BLOS § NEWPAS :BR Y 

99 022144 005737 002212 TST —DEVCNT ZARE ANY STILL RUNNING? 

100 022150 001747 BEQ —— NEWPAS :BR IF NO 

101 022152 RFLAGS RO 
022152 104421 TRAP —CSRFLA 

102 022154 032700 000100 | BIT §#ISR,RO SHOULD WE PRINT STATISTICS 

103 022160 001343 BNE —- NEWPAS 3BR IF NO 

105 0221 DORPT 
022162 104424 TRAP —- CSDRPT 

106 022164 000741 BR NEWPAS 

107 022166 108: 

109 022166 SETU: GPHARD UNITN,RO :GET UNIT N P=TABLE POINTER. 
022166 013700 002174 MOV —s UNI TN. RO 
022172 104442 TRAP C$GPHRD 

110 022174 BNCOMPLETE NXTU :8R IF UNIT NOT AVAILABLE. 
022174 10384 BCC = NXTU , é 

111 022176 005037 003104 CLR ——DUFLG CLEAR ‘DROPPED’ FLAG. 

112 Oee20e 005287 O0z212 INC —DEVCNT 

113 022206 012001 MOV = (RO) +, R1 3GET 1ST REGISTER ADDRESS. 

114 022210 010137 002200 MOV —sR1,, CSRADDR ADDRESS OF REGISTERS OF UNIT UNDER TEST 
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TSV4 = MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


002202 
016276 
002204 


002174 


100000 
005766 
002012 


001000 


002174 
022364 
000002 


000006 
003106 
002200 
000002 
016456 


003106 
177777 


000000 


116 


& 
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SEQ 0114 


3GET vector ADDRESS. 

sGET INTERRUPT oaicai ty 

3SET INTERRUPT PRIORITY 

3SET INTERRUPT VECTOR POINTER... 


SII TAND PRIORITY. 


SS ? 
- SKIP THE PASS 1 STUFF. 


11ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
3 THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


003170 
000001 


10$: 


003104 
2$: 


FINALLY 


5s: 


L10030: 


045 PUNIT: 


MO 
MOV 


UNITN,R1 


R 
#81715 ,ERTABL(R1) 
EXTA 


LSUNIT,#1 
10$ 


RO 
CSRFLA 
#PNT,RO 


1 
#PUNIT ,UNITN 
UN 


R1,NODEV 
4-1 ,DUFLG 


sSAY DEVICE RUNNING 
CLEAR ERROR EXTENSION FLAG. 
mn We TESTING MULTIPLE UNITS? 


NO. 
YES == GET OPERATOR FLAGS. 
eRe WE PRINT UNIT #? 
PRINT THE UNIT # 


sADDRESS OF FIRST REGISTER 
sSTART OF REGISTERS 

ADDRESS OF TSSR REGISTER 

sTEST BOTH CONTROLLER REGISTERS... 


-AND BR IF 
TFLAG DEVICE AS NON-EXISTENT 
DROP THIS UNIT. 


- SET CPU PRIORITY AND WE'RE DONE. 


Aan 
TRAP 


ENDINIT 


TRAP 


#PR1I00 
#PR 


CSINIT 


sENABLE INTERRUPTS. 


Meee /ENINZAttee® TESTING UNIT ZD22A teeee/ 


-_— 


L 9 
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ADD AND DROP UNITS SECTIONS SEQ 0115 


160 .SBTTL ADD AND DROP UNITS SECTIONS 
16 
188 2 THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
164 $ TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIM 
165 : OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
167 022432 BGNAU 

022432 LSAU:: 
168 022432 010001 MOV RO,R1 : GET UNIT TO BE ADDED (RO) 
169 022434 006301 ASL R1 : MAKE IT A WORD INDEX 
170 022436 052761 100000 003170 BIS #100000, ERTABL(R1) : SET THE ACTIVE’ BIT 
171 022444 042761 040000 003170 BIC #40000, ERTABL(R1) : CLEAR THE “DROPPED'' BIT 
172 022452 PRINTF #1$,RO. 

022452 010046 V RO,-(SP) 

022454 012746 022500 MOV #1$,-(SP) 

022460 012746 000002 MOV #2,-(SP) 

022464 010600 V z 

0224 104417 TRAP CSPNTF 

022470 062706 000006 ADD #6,SP 
173 022474 EXIT AU 

022474 000167 <WORD JSJMP 

022476 000026 “WORD 110031-2-. 
174 022500 045 116 045 18: ;ASCIZ /%N%A UNIT %D%A ADDED/ 
17? EVEN 
177 022526 ENDAU : UNUSED. 

022526 L10031: 
a 022526 104452 TRAP — C$AU 

3 + 

179 : THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
1 : TO BE REMOVED FROM THE TEST LIST. 
182 3 SUPVSR DOES THE “DROPPING. THIS IS JUST f° TELL, THE, MAN 
183 ; DROPPED’ UNITS ARE RE~SELECTED ON OPERATOR “'STA’’ ADD" 
184 3 COMMAND, orn HERWISE REMAIN INACTIVE. THE 'DISP tayo c 
185 : WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
186 = WHICH ARE STILL ACTIVE. 
187 + UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
189 022530 BGNDU 

022530 LSDU:: 
190 022530 012737 177777 003104 MOV #-1,DUFLG 
191 022536 010001 MOV RO,R1 
192 022540 006301 ASL R1 
193 022542 052761 140000 003170 #140000,ERTABL(R1) z SAY DROPPED 
194 022550 000240 000240 000240 246, 240,240 22222222? 
195 022556 INTE °#1$,R0 

022556 010046 nov RO,-(SP) 

22 012746 022604 MOV #18,-(SP) 

22564 012746 000002 MOV #2,-(SP) 

022570 010600 MOV R ‘ 

022572 104417 TRAP  CSPN 

022574 062706 000006 ADD 4#6,SP 
196 022600 EXIT 0D 

022600 000167 ‘ JSJMP 

022602 000030 ‘ L10032-2-. 





-—— 
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ADD AND DROP UNITS SECTIONS SEQ 0116 
197 022604 045 116 045 1$: -ASCIZ /%N%A UNIT %D%A DROPPED/ 
199 022634 ENDDU 
022634 L10032: 
022634 104453 ~ TRAP — C$DU 
201 : AUTO=DROP CODE SECTION. 
203 022636 Seeeate BGNAUTO 
204 022636 013705 002200 * "MOV CSRADDR,RS POINT 19, DEVICE REGISTER 
205 022642 012703 000550 MOV #360. ,R3 ENOUGH ME FOR 24 2400' REEL TO REWIND 
206 022646 004737 016330 10$: JSR PC ,WAITF sWAIT fon’ SSR 
207 022652 103420 BCS 20$ ‘LEAVE WHEN SSR 13° Ser 
208 022654 DELAY 250. ‘WAIT FOR .25 SECONDS 
022654 012727 000372 MOV #250. ,(PC)+ 
022662 013727 002116 MOV LSDLY, (PC)+ 
022666 000000 .WORD 0 
022670 005367 177772 DEC -6(PC) 
022674 001375 BNE = 
022676 005367 177756 DEC =22(PC) 
022702 001367 BNE .-20 
209 022704 005303 DEC R3 ;BUMP COUNTER DOWN 
210 022706 001357 BNE 10$ [KEEP GOING 
211 022710 004737 017262 JSR PC, CKDROP sTRY AND DROP UNIT 
212 022714 20S: 
213 022714 ENDAUTO : UNUSED. 
022714 L10033: 


022714 104461 TRAP CSAUTO 


=~ 





TSV4 = MISCELLANEOUS SECTIONS 
CLEAN-UP AND REPORT CODING SECTIONS 


225 022726 
226 


227 
228 022730 


250 023044 
251 023046 
252 023052 
253 023054 
023054 
023056 


013705 
005737 
012765 
004737 


104412 


012746 


0010 
ou2702 


019346 
012746 


002200 
003104 


000000 
016330 


023206 
000001 


000004 


003170 


040000 
170000 


023243 
000003 


000010 
160000 


023313 


N 9 
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000002 


SEQ 0117 
-SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


: 

THE CLEANUP CODING SECTION CONTAINS THE paset THAT IS 
S EXECUTED AT THE END OF EACH PASS (OR SUB-PASS) 

: ;_USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCLN 
LSCLEAN: : 
MOV ‘CSRADDR RS sPOINT TO DEVICE REGISTER 
TST DUFLG ;"‘DROPPED’’ FLAG IS SET ON.. 
BMI 1$ z.+AND GROSS CONTROLLER FAULT... 


z--DON'T TRY TO XCT CLEANUP CODE. 


MOV #0, TSSR(RS) D0 SOFT INIT 


JSR PC ,WAITF 
ENDCLN 
TRAP CSCLEAN 


p++ 
: THE REPORT CODING SECTION CONTAINS THE 
: "PRINTS'’ CALLS THAT GENERATE STATISTICAL REPORTS. 


1$: 
2$: 
L10034: 


BGNRPT 
LSRPT:: 
PRINTS #DEVSUM 
MOV #DEVSUM, -(SP) 
MOV 1,-(SP5 
MOV P, 
TRAP oC 
ADD #4,SP 
MOV R2,~(SP) 
MOV R3,-(SP) 
MOV R4,=(SP) 
MOV #ERTABL ,R4 : GET START OF ERROR TABLE. 
CLR : CLEAR UNIT 
1$: MOV (R4) ,R2 : GET ERROR TABLE ENTRY & TEST IT. 
BEd 4s * ZERO IF UNIT NOT 
BIT #B1T14,R2 : WAS UNIT DROPPED? 
IC #°C7777,R2 3 GET ERROR COUNT FIELD 
PRINTS #DEVONL,R3,R2 ; PRINT 
V Reo~(SB) 
MOV R3,-(S 
MOV #DEVONL ,-(SP) 
MOV #3,-(SP) 
MOV SP,RO 
TRAP _— CSPNTS 
ADD #10,SP 
BR 4$ 
2s: CMP R2,4160000 3 WAS UNIT NON-EXISTENT? 
E 3 : BR IF NO 
PRINTS #DEVNXR,R3 
OV .=(SP 
V #DEVNXR, =(SP) 


—t-4 


-—— 


TSV4 = MISCELLANEOUS SECTIONS 
CLEAN-UP 


076 


Sooooooooooooooooo 


oo 


31 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


277 
278 023526 
279 
280 


pa Sw te rere 
—— 
VSENBVOSENSHNSORORRRS 





pterae 


Oo 
es 


~o000 
Ronno 

VEEN 
aSoe 
ASaRX 


28 
& S28 


NMmNCOOSO hw 
nm 


=—Sooooo 

2 
SNe 
AAO 


BSE 
Bese 


000002 


000006 
160001 


023375 
000002 


000006 
170000 
023456 
000003 
000010 


000002 
003370 


—_ SD 
oooo=— 
— td = = OR 


3$: 


30$: 


4$: 


L10035: 


DEVDRO: 


MOV 


TRAP 


8 10 
MACRO M1113 25-MAY=82 08:43 PAGE 75-1 
AND REPORT CODING SECTIONS 


#2,-(SP) 


SP, 
CSPNTS 
tt SP 


R2,4160001 
R 

#DEVNRD ,R3 
#DEVNRD,=(SP) 
#2,~(SP) 
P-RO 

CSPNTS 

#6.SP 


#*C7777, Re 
RO ntses R5,R2 


A reed STATUS SUMMARY : ZN/ 
/TA T Z03ZA 


/%A UNIT ZD3ZA 


3 WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


ONLINE, ERRORS = 2D2N/ 

DROPPED, cor laise at py yt EM Sy 
DROPPED, NOT READY AT STARTUPZN/ 
DROPPED, ERRORS = ZD2N/ 


SEQ 0118 


REE ot: 


+ Te 


TE 





TSV4 = MISCELLANEOUS SECTIONS MACRO M1113 25-MAY-82 08:43 PAGE E 1 
CLEAN-UP AND REPORT CODING SECTIONS 


TSV78:: 


-TITLE TEST 1 = HARDWARE TEST 1-8 TESTS 


BGNMOD TSV7B 


SEQ 0119 


4 


TE 
TE 





~ HARDWARE TEST 1-8 344 MACRO M1113 25-MAY-82 08:43 PAG 
TEST . WRITE TAPE MARK RETR 





-SBTTL TEST 1: WRITE TAPE MARK RETRY 


ITHIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
SUBTESTS ARE AS FOLLOWS: 


;REVERSE, ERASE, WRITE TAPE MARK). 


‘THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 


606338 002172 #EPRT1,EPRTSW 
032117 arstesip RO 


000005 002210 





;PRIMARY ERROR MESSAGE 

ASCII MESSAGE TO IDENTIFY TEST 
O INITIAL TEST SETUP 

‘PERFORM 5 ITERATIONS 

CLEAR TAPE RECORD COUNTER 


TEST 1 = HARDWARE TEST 1-8 ty MACRO M1113 25-MAY=82 08:43 PAG 


TEST 


1: WRITE TAPE MARK RETR 


94 023740 


013727 


6 
012114 


012704 
004737 


032146 


02 
016054 


000250 
002116 
177772 
177756 
026500 
002214 


002174 


026320 
010742 


002214 


000002 


+ 


E 10 
E 80 


;TEST 1, SUBTEST 1 
; VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE T 


026500 


10$: 


026340 208: 


25$: 


IS POSI 


HE 
ONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 
:NONEXE CUTABLE FUNCTION (NEF) ERROR BIT SET. 


pe T29REST 
oT29RT2? 


T29RTS 
PCTZORS 
PC, SOF INIT 


20$ 
250 


T29DLY 

10$ 

FATFLG 

RO,R1 

ERRNO, SFIERR, SF IMSG 


UNITN, T290SW 
#T29PACKET R4 

43 WRTCHR 

FATFLG 

RO,R1 
ERRNO,WRTMSS, SF IMSG 


TSSR(RS) RI 
R1,R2 


aOFL Re 
He 


zERROR 
hy CONTENTS 0 


SEQ 0121 


3>>>>>>>>>>>> ven: > aie >>>>>>>>>>>> 


SET COMMAND PACKET 


TRAP 


:SET UP pL 2 COMMAND PACKET 


:S R 
300 Sitiua 


INIT 


3BR IF 
sDELAY ABOUT .25 SECONDS 


BUMP DELAY ROUTINE D 


DEC 
— 


BR, IF MORE DELAY TIME LEFT 
COUNT 


sERROR 
i CONTENTS OF TSSR REGISTER 
2FATAL ERROR TSSR WAS NOT OK 


3SET UP UNIT NUMBER 


; SUBROUTINE NEEDS PACKET we. 
+ ISSUE WRITE CHARACTERISTICS 
F COMMAND ISSUED 


sunt 


TRAP 


F TSSR 
WRITE CHARACTERISTISC wenee 


sLOOP IF SELECTED 
sGET THE TSSR 


SHOULD 
TBR, IF OFL IS NOT SET 


C$BSUB 


#250, (PC)+ 
Psoiy, «pcre 
-6(PC) 
=22(PC) 

20 


CSERDF 
101 


SFIERR 
SF IMSG 


CSERHRD 
102 


WRTMSG 
SF IMSG 


CSCLP1 
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vest 1 = HARDWARE TEST 1-8 eet MACRO M1113 25-MAY-82 08:43 PAGE 80-1 
1: WR TAPE MARK RETR 


WRITE 


ah tt 


0 
121 024046 
024046 
122 024050 


146 024154 
024154 


w 
5 8 
Quce wn 


Rs 
z 


ab 4 2 


000152 
027562 


sso 
ome 
o=—~ 
ooNO 
SAR 


002214 


026350 
000002 


002214 


026350 
002000 


002214 


026442 
026440 


268: 


30$: 


408: 


75$: 


ERRDF 


ERRHRD 


ERRNO, T290FL ,EXPREC 


PC ,,CKDROP 

PC REWIND 
TSSR(RS),R1 

#SSR,R2 

RO,R4 

FATFLG 

ERRNO, T29RWN,PKTSSR 


T29BFR+6,R1 
#B1T1,R2 

R1,R2 

408 

FATFLG 

ERRNO, T29BOT ,EXPREC 


T29RB 
miniolt. T29PK3 


Bee TSDB(RS) 


TSén R(R AS), R1 
peshisc Or 11 !81T2.R2 
R1,R2 


75$ 
FATFLG 
ERRNO, T29WDE ,PKTSSR 


T29BFR+6,R1 


#B81T10,R2 
R1,R2 
76$ 


FATFLG 
ERRNO, T29NEF ,EXPREC 


SEQ 0122 
sDRIVE IS OFF LINE 
TRAP corer 
WORD 103 
WORD T290FL 
«WORD EXPREC 
TRY AND DROP DRIVE 
CALL TAPE REWIND COMMAND 
SSET UP gtd sy TSSR 
BR, IF NO PROBLEM 
;PACKET ADDRESS SET _UP 
OUNT 
sREWIND Not ACCEPTED 
TRAP CSERHRD 
-WORD 104 
WORD T29RWN 
«WORD PKTSSR 
:LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
2SET UP _ EXPECTED 
7SET BOT BIT IN hates 
;DOES EXP = REC'D 
BR, IF EQUAL (OK) 
zERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
- WORD 05 
-WORD T29B0T 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sADDRESS OF READ — 
WRIT 


ITE TAPE MARK RETRY,CVC=1,ACK COMMAND 
SET UP R4& WITH PACKET ADDRESS 
s ISSUE COMMAND 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE THEY EQUAL 
:BR, IF 
COUN 
TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
WORD 
-WORD T E 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
3GET XSTO STATUS WORD 
SET UP EXPECTED 
sSET THE NEF BIT 
sARE THEY EQUAL 
sBR, IF EQUAL (GOOD) 
sERROR COUNT 
:NEF SHOULD BE SET 
TRAP CSERHRD 


Tt 
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TEST 1: WRITE TAPE MARK RETR SEQ 0123 


-WORD 107 
~WORD T29NEF 
«WORD EXPREC 
COM R3 sRESET THE SWITCH 
BNE 26$ sBR, IF FIRST TIME THROUGH HERE 
ENDSUB 
L10037: 
TRAP CSESUB 
002214 000917 CMP FATFLG,4#15. IS ERROR ge AT 25 
BLO 999$ ‘BR, IF LESS THAN 25 


017262 JSR PC,CKDROP TRY TO DROP THE UNIT 


H 10 
TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY=82 08:43 PAGE 81 
TEST 1: WRITE TAPE MARK R SEQ 0124 
156 3¢ 
157 ; 
158 STEST 1, SUBTEST 2 
160 SVERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 
161 31S POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN 
16¢ 3TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 
164 : 
165 ; 
169 
168 024, 06 : BGNSUB ¢>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
024206 104402 TRAP  C$BSUB 
169 024210 004737 032146 JSR PC, T2OREST :SET COMMAND PACKET 
170 024214 004737 032240 JSR PC.T gnTe [SET UP OTHER COMMAND PACKET 
171 024220 004737 032302 JSR PC; TOORT [SET UP OTHER COMMAND PACKET 
172 024224 004737 016054 JSR PC’ SOF INIT D0 INITIALIZE om CONTROLLER 
173 024230 103407 BCS 20$ [BR IF INIT WAS OK 
174 024232 005237 002214 INC FATFLG sER ROR COUNT 
178 024236 010001 MOV RO,R1 ZCONTENTS OF TSSR REGISTER 
179 024240 ERRDF ERRNO, SFIERR, SF IMSG [FATAL ERROR TSSR WAS NOT OK 
40 104455 TRAP  CSERDF 
024242 000154 .WORD 108 
024244 003646 “WORD SFIERR 
024246 012114 : “WORD  SFIMSG 
180 024250 013737 002174 026340 208: MoV UNITN, T29DSW :SET UP UNIT NUMBER 
182 024256 012704 026320 MOV #T29PACKET RG :SUBROUTINE NEEDS PACKET ADDRESS 
183 024262 004737 010742 JSR PC, WRTCHR TISSUE WRITE CHARACTERISTICS 
184 024266 103407 BCS 25$ :BR, IF COMMAND ISSUED OK 
185 024270 005237 002214 INC FATFLG SERROR C 
189 024274 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 
190 024276 ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
104456 TRAP  CSERHRD 
024 000155 .WORD 109 
024302 005052 [WORD WRTMSG 
024304 012114 “WORD SFIMSG 
191 024306 25$:  CKLOOP :LOOP IF SELECTED 
024 104406 TRAP  CSCLP1 
192 024310 004737 011074 26$: JSR PC REWIND CALL TAPE REWIND COMMAND 
193 024314 016501 000002 MOV TSSR(RS) RI GET T 
194 024320 012702 000200 MOV #SSR,R2 3SET UP EXPECTED TSSR 
195 024324 103407 BCS 30$ IF NO PROBLEM 
196 024326 010004 MOV RO, Rs SPACKET ADDRESS SET UP 
197 024330 005237 002214 INC FATFL sERROR COUNT 
201 024334 ERRHRD ERRNO. © OORUN, PKTSSR :REWIND NOT ACCEPTED 
24334 104456 CSERHRD 
024336 000156 «WORD 110 
024340 030305 “WORD  T29RWN 
024342 012126 <WORD PKTSSR 
202 024344 30$:  CKLOOP :LOOP IF SELECTED 
024344 104406 TRAP  CSCLP1 
203 024346 013701 026350 MOV T29BFR+6,R1 :PICK UP XSTL 
204 024352 010102 MOV R1,R2 [SET UP EXPECTED 
205 024354 052702 000002 BIS #B1T1,R2 [SET BOT BIT IN EXPECTED 
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TEST 1: WRITE T 


hMoRoKoRON 
ed ed ed ed ed 


rmrorr 
nm 
= 
S 
& 
& 
& 
o 


4 
225 024462 
226 Oseeee 


024572 
248 024574 
024574 
249 024576 
24604 


2 
251 024612 
252 024616 


RSSS 
NaN 
ooow 
Mm 


oN 
lod 


002214 


000001 
000400 
140005 
026440 
016330 
000002 
000200 


026350 
000004 


002214 


000001 
140410 
026440 


00 

016330 
000002 
000200 


002214 


026442 40S: 
026446 


026440 


41$: 


75$: 


026442 
026440 


175$: 


026442 
026440 


CMP 
BEQ 


INC 
ERRHRD 


R1,R2 
40$ 


FATFLG 
ERRNO, T29B0T ,EXPREC 


#1, T29R8 
#256. ,129S7 
#140065, T29PK3 
#729PK3, 
RG. TSDB(RS) 
TSSR(RS) RI 
#SSR,R2 

1,R2 

5$ 
T29BFR+6,R3 
#4,R3 


4] 
ERRNO, T29WLK, SF IMSG 


FATFLG 
ERRNO, T29WRT ,PKTSSR 


ai0410. 129PK3 
T29PK3.R 

ni, TeBGRS) 

TSSR(RS) RI 

SSR,R2 

1.Rd 

175 

FATFLG 

ERRND  :29NDE. PKTSSR 


melon. o9Re opK3 
#T29PK3_R4G 
R4, TSDB(RS) 





sDOES EXP = REC'D 
:BR, IF EQUAL (OK) 
sERROR COUNT 
ZTAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
.WORD 111 
“WORD T29B80T 
-WORD EXPREC 
ZNUMBER OF RECORDS TO SPACE OVER 
‘SET UP RECORD IZE 
SWRITE FORWARD, ey VC=1,ACK COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
:1SSUE COMMAND 
[WAIT FOR SSR TO SET 
[GET TSSR CONTENTS 
:SET UP EXPECTED 
ZAR 
7BR, IF 
[PICK UP XTSO 
71S UNIT URI TE-LOCKED D? 
[NO,PROCEED WITH NORMAL ERROR 
STAPE IS WRITE LOCKED 
TRAP CSERDF 
«WORD 111 
“WORD T29WLK 
-WORD SFIMSG 
:DROP IT 
TRAP  CS$DCLN 
ZERROR COUNT 
ZTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
“WORD T29wRT 
;WORD PKTSSR 
:LOOP IF SELECTED 
CSCLP1 
:MUMBER OF RECORDS TO SPACE OVER 


COMMAND IN APCKET 
3SET fo WITH PACKET ADDRESS 


SWAIT FOR SSR SET 

2GET TSSR CONTENTS 

sSET UP EXPECT 

sARE THEY E 

sBR, IF 

zERROR COUNT 

zTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
WORD 113 
WORD T29WDE 
WORD PKTSSR 

:LOOP IF SELECTED 
TRAP CSCLP1 


s ADDRESS OF BUFFER 

TE TAPE MARK RETRY,ACK,CVC=1 COMD. 
SET UP_R4 WITH PACKET ADDRESS 
ISSUE COMMAND 


SEQ 0125 


SET. 
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253 024622 004737 016330 JSR PC ,WAITF 

254 024626 016501 000002 MOV TSSR(RS) RI 

255 024652 012702 100204 MOV #SSRISC!BIT2,R2 
256 024636 02010 CMP 

257 02464 Sorsee BEQ 

258 024642 005257 002214 INC FATFLG 

262 02464 ERRHRD ERRNO, T29WDE ,PKTSSR 


024646 000162 


00016 
024652 02756 
024654 012126 


263 024656 180$:  CKLOOP 

024656 104406 
264 024660 013701 026356 MOV T29BFR+14,R1 
265 024664 01010 MOV R1,R2 
266 024666 052702 000001 BIS #BiTO,R2 
267 024672 020102 CMP R1,R2 
268 024674 001406 BEQ 190$ 
a¥5 Gaingg Wee onzzn Ema EMO rzon. xen 

024702 10445 

024704 00016 

4706 031724 

024710 015554 
274 024712 190$: 
275 024712 ENDSUB 

024712 

024712 104403 
276 024714 023727 002214 000017 CMP FATFLG,4#15. 
277 024722 103402 BLO 999$ 
278 024724 004737 017262 JSR PC, CKDROP 
279 024730 999$: 


SEQ 0126 
sWAIT FOR SSR_TO SET 
3GET TSSR CONTENTS 
zSET UP _ EXPECTED 
sARE THEY 
sBR, IF OK 
COUN 
TSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 114 
WORD T29WDE 
-WORD PKTSSR 
sLOOP IF SELECTED 
RAP CSCLP1 
3GET ~¥F STATUS WORD 
sSET UP EXPECTED 
3SET LL. RI6B BIT 
zARE T HEY EQUAL 


- IF EQUAL (GOOD) 
sERROR COUNT 
NEF SHOULD BE SET 
TRAP CSERHRD 
WORD 115 
-WORD T29RIB 
«WORD EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10040: 


TRAP CSESUB 
21S ERROR > el AT 25 
BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


mia 





281 


Ov—— 
WM—& Ooo 
SS oooooo 
w 
— 
= 
So 


103426 
012727 
013727 
000000 


104406 


032746 
0 


016054 


000250 
002116 
177772 
177756 
026500 
002214 


002174 
026320 
010742 


002214 


011074 
000002 
002214 


s+ 
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;TEST 1, SUBTEST 3 
VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINA 


SEQ 0127 


sPROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY TeSUINE® A READ ee vVense 
+ COMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK=1). 
. BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


10$: 


026340 20S: 


238: 


JSR PC, T29REST 
PC RT 


JSR PC, SOF INIT 
BCS 20$ 
DELAY 250 


DEC T29DLY 

BN 10$ 

INC FATFLG 

MO RO,R1 

ERRNO, SF IERR, SF IMSG 


MOV UNITN, T29DSW 

MO #T29PACKET RG 

4 WRTCHR 

INC FATFLG 

MO RO,R1 

ERRNO, ,WRTMSG, SF IMSG 


CKLOOP 

JSR PC REWIND 
BCS 

MOV TSSR(RS) RI 
MOV RO,R4 


INC FATFLG 
ERRHRD ERRNO, T29RWN,PKTSSR 


TRAP C$BSUB 
3SET COMMAND PACK 
ser UP OTHER ¢ COMMAND PACKET 


;SE 
200 ene ON CONTROLLER 
sDELAY ABOUT .25 SECONDS 


MOV #250, (PC)+ 
«WORD 0 
MOV LSOLY,(PC)+ 
. WORD 
DEC -6(PC) 
BNE e 
; DEC =22(PC) 
cont i > 
;BUMP DELAY ROUTINE DOWN . 
2BR, IF Pe RnOn COUNT TIME LEFT 
: CONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
eWORD 116 
-WORD SFIERR 
eWORD SFIMSG 


2SET UP DRIVE NUMBER 
;SUBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 

F COMMAND ISSUED OK 


aoe SERROR COUNT 
:SAVE CONTENTS OF TSSR 
[WRITE CHARACTERISTISC FAILED 


CSERHRD 
ORD 117 
WORD WRTMSG 
WORD SFIMSG 
:LOOP IF SELECTED 
TRAP CSCLP1 
CALL TAPE REWIND COMMAND 
: IF NO PROBLEM 
2GET TSSR 
SAVE PACKET ADDRESS 
sERROR COUNT 
;REWIND NOT ACCEPTED 
CSERURD 


aA 
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TEST 1: WRITE TAPE MARK RETR SEQ 0128 
025122 030305 .WORD T29RWN 
025124 012126 “WORD PKTSSR 

326 025126 30$: | CKLOOP :LOOP IF SELECTED 
025126 104406 TRAP _— C$CLP1 

7 025130 013701 026350 MOV T29BFR+6,R1 :PICK UP XSTO 

28 025134 01010 MOV R1,R2 SSET UP EXPECTED 

329 025136 052702 000002 BIS #B1T1,R2 [SET BOT elt IN, EXPECTED 

330 025142 020102 CMP R1,R2 !DOES EXP = REC’ 

331 025144 001406 BEQ 408 BR, IF EQUAL fo) 

332 025146 005237 002214 INC FATFLG OR COUNT 

336 025152 ERRHRD ERRNO, T29B0T, EXPREC TAPE wore rv BOT AFTER REWIND 
025152 104456 TRAP  C$ERHRD 
025154 000167 .WORD 119 
025156 027776 “WORD T29B80T 
025160 015554 -WORD EXPREC 

337 02516¢ 40$:  CKLOOP :LOOP IF SELECTED 
0251 104406 TRAP CS$CLP1 

38 025164 012737 140011 026440 MOV #140011 Satie SWRITE TAPE MARK,ACK,CVC=1 C 

339 025172 012704 026440 MOV #T29PK3.R SSET UP R4 WITH PACKET ADDRESS ; 

340 025176 010465 000000 MOV R4, TSDBIRS) Z1SSUE COMMAND 

341 025202 004737 016330 JSR PC{WA [WAIT FOR SSR TO SET 

342 025206 016501 000002 MOV TSSRCRS) RI [GET TSSR CONTENTS 

343 025212 012702 000200 MOV #SSR,R2 SSET UP EXPECTED 

344 025216 020102 CMP R1,R2 SARE T 

345 025220 001406 BEQ 70$ 3BR, IF 

346 025222 005237 002214 INC FATFLG sERROR COUNT 

350 025226 ERRHRD ERRNO, T29WDC,PKTSSR sTSSR INCORRECT AFTER mg TAPE MAR 
025226 104456 TRAP CSERHRD 
025230 000170 «WORD 120 
025232 030677 “WORD T29WDC 
025234 012126 WORD PKTSSR 

351 025236 70$:  CKLOOP ;LOOP IF SELECTED 
025236 104406 —— CSCLP1 

352 025240 012703 000001 150$: MOV SNUMBER OF RECORDS TO WRITE T 

353 025244 012737 141011 026440 MOV aii0i, T29°K3 [WRITE TAPE MARK RETRY, ACK cVe=t COMMAND 

354 025252 012704 026440 MOV #T29PK3.R 3SET UP R4 WITH PACKET ADDRESS 

355 025256 010465 000000 155$: MOV RG, TSDBCRS) c 
025262 004737 016330 JSR PC. WAITF tWAIT FOR SSR TO SET 

357 025266 016501 000002 MOV TSSR(RS) ,R1 :PICK UP 

358 025272 012702 000200 MOV #SSR,R2 [SET UP EXPECTED (SSR ONLY) 

359 025276 02010 CMP R1,R2 :WAS STATUS GOO 

360 025300 001406 BEQ 165 :BR, IF TERMINATION WAS GOOD 

361 025302 005237 002214 INC FATFL ERR 

365 025306 ERRHRD ERRNO” T29WDC ,PKTSSR :TSSR wot’ CORRECT AFTER WRT TAPE M. 
025306 104456 TRAP CSERHRD 
025310 000171 «WORD 121 
025312 030677 <WORD  T29wDC 
025314 012126 “WORD PKTSSR 

366 025316 165$:  CKLOOP :LOOP IF SELECTED 
025316 104406 TRAP  CSCLP1 

367 025320 012737 140401 026440 MOV #140401, T29PK3 :READ REVERSE , ACK, COMMAND 

368 025326 013737 003116 026442 MOV FR gE AT gins [NUMBER OF RECORDS TO SPACE BACK 

369 025334 012704 026440 MOV aT R4 --3SET UP RG WITH PACKET ADDRESS 

370 025340 010465 900000 MOV R4, TspB{RS) c 

371 025344 004737 0163 JSR PCW ALTE SWAIT FOR SSR TO SET 


016501 000002 MOV TSSR(RS), :GET TSSR CONTENTS 
373 025354 012702 100206 MOV beens sc téit2. R2 [SET UP EXPECTED 





ae 
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TAPE MARK RETR 


TEST 1: WRITE 


374 025 

375 025362 
376 025 
380 025 


0 
397 025454 


015554 
104406 


107993 
023727 
103402 
004737 


002214 


026350 
100000 


002214 


002214 
017262 


000017 


2228: 


226$: 


CKLOOP 


ERRHRD 


CKLOOP 
ENDSUB 


R1,R2 
220$ 


FATFLG 
ERRNO, T29RDG,PKTSSR 


T29BFR+6,R1 
#B1T15,R2 
R1,R2 


FATFLG 
ERRNO, T29RRN, EXPREC 


FATFLG,#15. 
999: 
PC, CKDROP 


SEQ 0129 
3 ARE gt Maat 
ERROR COUNT 

zTSSR INCORRECT AFTER SPACE CMD. 
TRAP CSERHRD 
WORD 122 
WORD T29RDG 
«WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP _XSTO 

:seT uP EXPECTED 

we eee BE SET 

; BR, IF TMK WAS SET (GOOD) 

3 TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
WORD 123 
-WORD T29RRN 
-WORD EXPREC 


;LOOP IF SELECTED 
RAP CS$CLP1 
B<hKKKKKK CC END SUBTEST >>>>>>>>>>> 
L10041: 
TRAP CSESUB 
31S ERROR COUNT AT 25 


sBR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


tt 





399 


445 025642 


000000 
013727 
000000 





032146 
0 


016054 


000250 
002116 
177772 
177756 
026500 
002214 


002174 
026320 
010742 


002214 


011074 
000002 
002214 
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TEST 1: WRITE TAPE MARK R 


Tr 
SEQ 0130 
7+ 
:TEST 1, SUBTEST 4 
‘VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
ZRETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING § SEVERAL 
[WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 
ZRECORDS REVERSE COMMANDS IN SUCCES THE SECOND SPACE RECORDS REVERSE 
:COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 
BGNSUB >>>>>>>>>>>> sa Wh etaeeaed >>>>>>>>>>>> 
TRAP  C$B8SUB 
JSR PC T2OREST COMMAND PACKET 
JSR -TZOR T2 7SET UP OTHER COMMAND PACKET 
JSR RT3 3S OTHER COMMAND PACKET 
026500 MOV Hols fem ZSET UP DELAY ROUTINE 
10$: JSR PC, SOFINIT :D0 INITIALIZE’ ON CONTROLLER 
BCS ate :BR IF INIT WAS OK 
DELAY 250 ‘DELAY ABOUT .25 SECONDS 
MOV #250, (PC)+ 
. WORD 
MOV LSDLY, (PC)+ 
«WORD 
DEC -6(PC) 
BNE - 
DEC ~23¢PC) 
DEC T29DLY :BUMP DELAY ROUTINE DOWN 
BNE 10$ :BR, IF MORE DELAY TIME LEFT 
INC FATFLG T 
MOV RO,R1 S CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG [FATAL ERROR TSSR WAS NOT OK 
AP —s_- CSERDF 
-WORD 124 
-WORD SFIERR 
«WORD SFIMSG 
026340 20$: MOV T29DSW :SET UP DRIVE NUMBER 
MOV aOPACKET RG [SUBROUTINE NEEDS PACKET ADDRESS 
JSR PC ,WRTCHR ZISSUE WRITE CHARACTERISTICS 
BCS :BR, IF COMMAND ISSUED OK 
INC FATFLG sERROR COUNT 
MOV RO,R1 :SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRIMSG, SFIMSG ‘WRITE CHARACTERISTISC FAILED 
TRA CSERHRD 
ORD 125 
.WORD WRTMSG 
.WORD SFIMSG 
23$:  CKLOOP :LOOP IF SELECTED 
TRAP C$CLP1 
JSR PC REWIND CALL TAPE REWIND COMMAND 
BCS :BR, IF NO PROBLEM 
MOV TSSR(RS),R1 GET TSSR 
MOV SAVE PACKET ADDRESS 
INC FATFLG ROR COUNT 
ERRHRD ERRNO, T29RWN,PKTSSR : REWIND Nor ACCEPTED 


re) 
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TEST 1: WRITE TAPE MARK RETR SEQ 0131 
025642 104456 TRAP  CSERHAD 
025644 00017 WORD 126 

03030 “WORD  T29RWN 

925650 012126 : PKTSSR 

446 02565 30$:  CKLOOP ;LOOP IF SELECTED 

104406 RAP  C$CLP1 
447 025654 013701 026350 MOV T29BER+6, R1 :PICK UP XSTO 
448 025660 01010 MOV R2 ‘SET UP EXPECTED 
449 025662 052702 000002 | BIS Saini. R2 ‘SET BOT elt IN EXPECTED 

450 025666 020102 CMP R1,R2- [DOES EXP = REC’ 

451 025670 001406 BEQ 40$ ‘BR. IF EQUAL toK) 

452 025672 005237 002214 INC FATFLG SERROR COUNT 

456 025676 ERRHRD ERRNO, T29B0T, EXPREC ;TAPE NOT AT BOT AFTER REWIND : 
025676 104456 TRAP  CSERHRD 
025700 000177 «WORD 127 
025702 027776 “WORD T29B80T 
025704 015554 ;WORD EXPREC 

457 025706 40$:  CKLOOP ;LOOP IF SELECTED 
025706 104406 RAP _—CS$CLP1 

458 025710 012737 140011 026440 MOV #140011, T29PK3 WRITE TAPE MARK,ACK,CVC=1 C 

459 025716 012704 026440 MOV #T29PK3_RG tSET UP R& WITH PACKET ADDRESS 

460 025722 010465 000000 MOV Ra, TSbB(RS) :1SSue COMMAND 

461 025726 004737 016330 JSR WAITF WAIT FOR SSR TO SET 
025732 016501 000002 MOV TSén tas) RI :GET TSSR CONTENTS 

463 025736 012702 000200 MOV #SSR,R2 ‘SET UP EXPECTED 

464 025742 020102 CMP R1,R2 ARE i Y 

465 025744 001406 BEQ 70$ 7BR, IF OK 

466 025746 005237 002214 INC FATFLG sERROR COUNT 

470 02575 ERRHRD ERRNO, T29WDC,PKTSSR ZTSSR INCORRECT AFTER WRITE TAPE MARK 
025752 104456 CSERHRD 
025754 000200 TeoRo 128 
025756 030677 <WORD  T29wDC 
025760 012126 “WORD PKTSSR 

471 02576¢ 70$:  CKLOOP ;LOOP IF SELECTED 
025762 104406 TRAP  CSCLP1 

472 025764 012703 000012 150$: MOV #10, R3 NUMBER OF RECORDS TO uRITE’ ™ 

473 025770 012737 000001 026442 MOV T29RB [SET UP PACKET 

474 025776 012737 141011 026440 MOV aiiott. 129°K3 [WRITE TAPE MARK RETRY,ACK,CVC=1 COMMAND 
02 012704 026440 MOV T29PK 3°R sSET UP R&4 WITH PACKET ADDRESS 

476 026010 010465 000000 155$: MOV 4 TSpBiRS) SUE COMMAND 

477 026014 004737 016330 JSR PC. WAITF tWAIT FOR SSR TO SET 

478 026020 016501 000002 MOV TSSR(RS),R1 :PICK UP T 

479 026024 012702 000200 MOV #SSR,R2 'SET UP EXPECTED (SSR ONLY) 

480 026030 020102 CMP R1,R2 ‘WAS STATUS GOOD 

481 026032 001406 BEQ 1658 :BR, IF TERMINATION WAS GOOrt 

482 026034 005237 002214 INC FATFL -ERROR COUNT 

486 026040 ERRHRD ERRNO. © owe. PKTSSR ZTSSR NOT CORRECT AFTER WRT TAPE M. 
026060 104456 TRAP CSERHRD 
026042 000201 «WORD 129 
026044 030677 WORD 159u0c 
026046 012126 “WORD PKTSSR 

487 026050 165$:  CKLOOP ;LOOP IF SELECTED 
026050 104406 TRAP — CSCLP1 
026052 005303 DEC R3 ;BUMP COUNTER DOWN 

489 026054 001355 BNE 155$ :BR, IF LESS THAN 10 TAPE MARKS 

490 026056 012737 140410 026440 MOV #140410, T29PK3 * SPACE REVERSE ACK,CVC=1, COMMAND 

1 02 012737 000001 026442 MOV #1,729RB [NUMBER OF RECORDS TO SPACE BACK 





a ey 


492 026072 


026216 
519 026220 

026220 
520 026222 
521 026226 
522 0262 
523 026234 
524 026236 


525 026240 
529 asogs? 


uw WOOoOoOwWNMoO 
oa YESSY 


000204 
031724 
015554 
104406 


104406 


sis 
016339 
000002 

100204 


002214 


100410 
000005 
026440 
000000 
016330 
000002 
100204 


002214 


026356 
000001 


002214 


002214 
017262 





026440 
026442 


000017 


2228: 


260$: 


270$: 
330$: 
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#T29PK3 RG 
pee ane 


TSén R(RS), 
peers sc t61T2.R2 
R1,R2 


FATFLG 
ERRNO, T29WDE ,PKTSSR 


#100410, T29PK3 
#5, T29RB 
#TD9PK3_RG 

RG, TSDB{RS) 
TSSR( RS), 

peers sctért2, R2 
R1,R2 


FATFLG 
ERRNO, T29RDG,PKTSSR 


T29BFR+14,R1 
#BiTO,R2 
R1,R2 


FATFLG 
ERRNO, T29R1B, EXPREC 


FATFLG,#15. 
PC, CKDROP 


SET UP_R4 WITH PACKET ADDRESS 


mi 
o- 

= 

4] 


z1SS 

SWAIT FOR 0 SET 

sGET TSSR CONTENTS 

3SET UP EXPECTED 

zARE THEY 

BR, IF 

COUN 
TSSR INCORRECT AFTER SPACE CMD. 

TRAP 
WORD 
WORD 
WORD 

sLOOP IF SELECTED 
TRAP 


7 SPACE Rig, ACK, 
;NUMBER OF 


CSERHRD 
13 


PKTSSR 
CS$CLP1 


COMMAND 
RECORDS TO SPACE BACK 


sSET UP _R4 WITH PACKET ADDRESS 
z1SS OMMAND 


UE C 
WAIT FOR SSR TO SET 


sSET XPECTED 
— THEY EQUAL 
zERROR COUNT 

:TSSR INCORRECT AFTER SPACE REV CMD. 
TRAP CSERHRD 
WORD 131 
-WORD T29RDG 
«WORD PKTSSR 

LOOP IF SELECTED 
TRAP CSCLP1 

sPICK UP XST3 

SET UP EXPECTED 

:RIB SHOULD BE SET 

21S RIB SET 

2BR, IF RIB WAS SET (GOOD) 

zERR OUN 

TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
WORD 132 
-WORD T29RIB 
WORD EXPREC 

LOOP IF SELECTED 
TRAP CSCLP1 


:LOOP IF SELECTED 


Rap CSCLP1 
666K <<< <<< END sess! >>>>>>>>>>> 
L10042: 


TRAP 
31S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


CSESUB 


SEQ 0132 
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TEST 1: WRITE TAPE MARK RETR 


538 
539 : 
re : 
is seas 004737 016536 JSR PC, TSTLOOP 
026 103002 BCC 163$ 
026304 137 023556 JMP T29L00P 
ate 026310 163$: EXIT TST 
026310 104432 
026312 020 


SEQ 0133 


:D0 WE NEED TO ITERATE TEST 
BR, Ie NO LOOP REQUIRED 


AGAI 
ZALL DONE THIS TEST 


TRAP CSEXIT 
-WORD 1L10036-. 
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547 3+ 

rt | LOCAL STORAGE FOR THIS TEST 

551 026320 -=<.+10>8177770 

553 026320 T29PACKET: 

554 026320 014 -WORD 146004 

555 026322 026330 «WORD T29DATA 

556 026324 000000 -WORD 0 

557 026326 000012 eWORD 10. 

558 0263 T29DATA: 

559 026330 026342 -WORD T29BFR 

560 026332 eWORD 0 

561 Ocosse 000024 eWORD 20. 

562 026336 000000 «WORD O 

563 026340 000000 T29DSW: .WORD 0 

He} 026342 T29BFR: .BLKW 25. 

308 sWRITE SUBSYSTEM MEMORY COMMAND PACKET 

569 026430 -=<.+1058177770 

571 026430 T29PK2: 

572 026430 100006 «WORD 100006 

573 026432 026450 eWORD T29BF2 

574 026434 000000 -WORD 0 

3f2 026436 000006 eWORD 6. 

580 026440 T29PK3: 

581 026440 140005 -WORD 140005 

582 026442 T29RB: 

583 026442 003116 T29WB: .WORD FREE 

584 026444 000000 WOR 0 

585 026446 000000 T2982 D 6«~O 

586 EVEN 

587 : 

588 : 

589 : 

590 026450 T298F 2: 

591 026450 010 T298S0: .BYTE 10 

592 026451 200 T298S1: .BYTE 200 

593 026452 000000 T29S2: .WORD 0 

aoe 026454 000000 T29S3: .WORD 0 

596 8 

597 EVEN 

4 TAPE MOTION PACKET COMMAND VALUES 

600 026456 140001 T29RN: .WORD 140001 

601 026460 140401 T29WDR: .WORD 140401 

602 026462 141001 T29CON: .WORD 141001 

603 026464 161001 -WORD 161001 
026466 141401 eWORD 141401 

605 026470 161401 eWORD 161401 

606 026472 177777 «WORD 177777 


608 . 
609 026474 000000 T29CNT: .WORD 0 


SEQ 0134 


ere PACKET FOR TEST 
WRITE CHARACTERISTICS COMMAND, WITH CVC=1, ACK 
TADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
s CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


WRITE TAPE MARK RETRY COMMAND, CVC=1 AND ACK 
sADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 


sBSELO AREA 

:BSEL! AREA 
L 2 AREA 

‘DATA AREA 


zREAD DATA 
READ DATA REVERSE 
READ PREVIOUS OPP=0 
a PREVIOUS OPP=1 
WRITE TAPE MARK RETRY NEXT OPP=0 
EWRITE TAP es Mae RETRY NEXT OPP=1 


sTAPE RECORD COUNTER STORAGE AREA 
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TEST 1: WRITE TAPE MARK RETR 


611 026476 060000 T29RSZ: .WORD 0 RECORD STORAGE SIZE AREA 
ot¢ 026500 000000 T29DLY: .WORD :DELAY COUNTER STORAGE AREA 





SEQ 0135 


) 
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TEST 1: WRITE TAPE MARK RETR SEQ 0136 
615 
616 3¢ 
ot? sLOCAL TEXT MESSAGES FOR TEST 
$90 
1 oc6s0e 104 162 151 T290FL: .ASCIZ ‘Drive is OFFLINE’ | 
S 0265 124 141 169 T29WNG: .ASCIZ ‘Tape Position Incorrect After WRITE TAPE MARK RETRY Previous (OPP=1)° | 
0266 127 122 111 T29NEF: .ASCIZ ‘WRITE TAPE MARK RETRY, At BOT, Failed To Set NEF (xSTO)° | 
4 026720 124 123 123 T29RDF: .ASCIZ ‘TSSR incorrect After READ DATA Command’ 
625 026767 127 122 111 T29RRF: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command Failed 
626 027103 127 122 111 T29RRG: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Read Forward, Space Reverse) Command Failed 
627 027217 120 117 123 T29SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
027301 122 111 196 T29LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE into BoT* 
027351 124 123 123 T29WDF: .ASC’? ‘TSSR Not Correct After 5 Illegal Mode Bits Set’ 
027426 111 154 154 T29L0Q: .ASCi. ‘Illegal Mode Bits, Failed To =. Ike weit In xsT0o° 
631 027507 127 122 111 T29SSR: .ASCIZ ‘WRIT TAPE MARK RETRY COMMAND No ted’ 
32 027562 124 123 123 T29WDE: .ASCIZ ‘TSSR Not Correct After SPACE REVERSES BATA Command’ 
633 027644 052 052 052 T29WLK: .ASCIZ ‘s#eeeTAPE IS WRITE=LOCKED AND WILL CAUSE ERRORS *eee2° 
634 027731 124 123 123 ieeeats eASCIZ ‘TSSR Not Correct After WRITE Command' 
635 027776 124 141 160 T29BOT: .ASCIZ ‘Tape Not At BOT After hay pomnen 
636 030043 104 141 164 T29DTA: .ASCIZ ‘Data Written To Ta qual To Data Read From Tape’ 
637 030131 127 122 111 T29EOT: .ASCIZ ‘WRITE TAPE MARK RETRY a Hy OVER EOT GAVE NO TAPE STATUS ALERT’ 
638 030227 124 123 123 T29TM: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE Into goT* 
639 030305 122 145 167 T29RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
640 030354 122 101 115 T29RNC: .ASCIZ '° Error, Correct Data Pattern Not In Ram 
641 03042 124 123 123 T29AM3: .ASCIZ ‘TSSR Init. Failed After WRITE TAPE —_ RETRY COMMAND ° 
642 030515 104 Se 151 T290F7: .ASCIZ ‘Drive 7 select Failed To Set ‘OFL’’ In TSSR’ 
643 030570 124 12 123 T29WDD: .ASCIZ ‘TSSR Not Correct After WRITE TAPE wank RETRY DATA Command , SWB Bit Set’ 
644 030677 124 123 123 T29WDC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE stg o beth DATA Command 
645 030771 103 126 103 T29VCK: .ASCIZ ‘CVC Set, Didn’*t Reset VCK In Ape anu 
646 031044 124 123 102 T29BA: .ASCIZ ‘TSBA Not Correct After WRITE TAPE . Wetey DATA Command’ 
647 031136 127 122 111 T29WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command No epted ‘(RAM Read)' 
648 031225 122 145 141 T29LON: .ASCIZ ‘Reading Long Record Failed To Set ii “Bit In XSTO° 
031 122 145 141 T29LOP: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In xSTO' 
650 031371 122 145 163 T29PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 
651 031457 122 145 141 T29TRL: .ASCIZ ‘Reading Lon morons. Failed To Give Tape Status Alert’ 
652 031545 104 141 164 T29NEQ: .ASCIZ ‘Data WRITE TAPE MARK RETRY From Tape Not Correct, After Swe=1° 
031 124 123 123 T29RDG: .ASCIZ ‘'TSSR Incorrect After READ REVERSE Into Tape Mark | 
6'4 031724 127 122 111 T29RI eASCIZ ‘WRITE TAPE MARK RETRY At First Record, Failed To Set RIB (xXST3)° 
635 032024 124 115 113° T29RRN: .ASCIZ ‘TMK (XSTO) Failed To Set After READ REVERSE Into Tape Mark‘ | 
O26 032117 127 162 151 TST291D: wa eASCIZ ‘Write Tape Mark Retry’ 
es . 
660 ‘ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
66} WRITE SUBSYSTEM MEMORY COMMAND 
663 Se 
664 
665 032146 T29REST: 
666 032146 SAVREG SAVE THE meSisTens 
667 032152 012701 026320 MOV erepoacnst R1 i START OF THE PACKET 
668 032156 012721 140004 MOV 004, (Ri)+ WRITE SUBSYSTEM MEM. WITH ACK, CVC=1 
669 03 012721 026330 MOV STSSOATA, (R1)¢+ TADDR ESS OF CHARAISTICS DATA BLOCK 


670 032 005021 CLR (R1)+ EXTENDED ADDRE 
671 032170 012721 000012 MOV #10. ,(R1)+ :SIZE OF DATA BLOCK IN BYTES 








ers § 035200 


704 032330 
705 032332 

032332 
032332 


026342 
000024 
000000 
000030 
177777 


C00000 


026430 
140006 
026450 
000006 


026450 


026440 
000000 


000000 


026342 64$: 


T2ORT2: 


T29RT3: 


R 
ENDTST 
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TEST 1: WRITE TAPE MARK RETR 


#T29BFR,(R1)+ 
(R1)+ 


#20.,(R1)+ 
(R1)+ 
#0,(R1) 


#24, ,R2 
#177777, T29BFR(R2) 
=(R2) 


R2,40 
648 
PC 


#T29PK2,R1 


#140006, (R1)+ 
#T29BF2,(R1)+ 
(R1)+ 


#6.,(R1)+ 
(R1)+ 
#T29BF2,R1 
(R1)+ 

(R1) 

PC 


#T29PK3,R1 
+ 


SEQ 0137 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT tS ZERO (0) 
NUMBER OF LOCATIONS TO BE CLEARED 
SSAGE BUFFER 


EEP GOING UNTIL DONE 
URN 


o “a Tae Pater 

START OF THE PAC 

WRITE SUBSYSTER REM. Was ACK, ,CVC=1, 
ZADDRESS OF DATA BLOC 

sEXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BYTES 


POINT TO DATA SEL AREA 


sRETURN 
sSAVE Ye a gh A ie 
:ST T OF THE PACKET 
[WRITE OreSveTEN MEM. WITH ACK, 
S ADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 
SIZE OF DATA BLOCK IN BYTES 
;RETURN 
L10036: 
TRAP CSETST 


T 
T 
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yey 


~“N 
“SOD VNOuULWwNoO 


VN 
MN 


726 032334 
32334 


0 
727 032334 
732 032342 
733 032346 
734 032352 





002172 


002210 


SEQ 0138 


‘+ -SBTTL TEST 2: SKIP TAPE MARKS 


STHIS ak h tit PROPER OPERATION OF THE SKIP TAPE MARKS 
sFORWARD AND SKIP TAPE MARKS be COMMANDS. PROPER OPERATION 

; OMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
TAPE MARKS STOP we BOT (ENB) ae he 


HE WR RISTICS COMMAND. THE TEST 

FOLL wey suetests (FOR EACH SUBTEST, THE TAPE IS FIRST a 
sWITH AN APPROPRIAT 4 tt OF DATA RECORDS AND/OR TAPE MARKS 
¢AND/OR DOUBLE TAPE MARK 


‘THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 


#EPRT1,EPRTSW 
MOV #TST3OID.R 
PC, TSTSETUP 
#5,,LOOPCNT 


PRIMARY ERROR MESSAGE 
ZASCII MESSAGE TO IDENTIFY TEST 
300 INITIAL TEST SETUP 


; sPERFORM 5 ITERATIONS 


3TEST 2, SUBTEST 1 


VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 
E MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 

FIRST REWOUND, THEN WRITTEN WITH SEVERAL ‘FILES'': 

TEACH FILE CONSISTS OF A NUMBER OF DATA A RECORDS 

= FOLLOWE A TAPE MARK. THE FINAL FILE IS 

‘ TAPE MARK. EACH DATA RECORD 

FILE NUMBER AND THE RECORD NUMBER WITHIN 

O THAT TAPE POSITION CAN BE SUBSEQUENTLY 

“VERIFIED BY READING THE DATA. The TAPE IS AGAIN 

“REWOUND AND A SER SKIP TAPE MARKS FORWARD 

ULTS (TAPE STATUS ALERT 
ION VIA READ 

O ISSUANCE OF EACH SKIP 

; WRITE CHARACTERISTICS COMMAND IS ISSUED TO 

‘SET UP tHE ESS AND ENB CONTROL BIT L 

COMB ESS AND ENB ARE USED (00,01,10, 

311); OPERATION SHOULD BE THE SAME IN EACH CASE FOR 

3 THIS SUBTEST. 


T30LOOP: 
BGNSUB 3>>>>>>>>>>>> as | SUBTEST >>>->>>>>>>> 
TRAP C$BSUB 
JSR " T3OREST 3SET COMMAND PACKET 
CLR T30F CN SCLEAR FILE COUNTER 


T 
T 


TEST 1 = HARDWARE . ~~ TEST MACRO M1113 25-MAY-82 08:43 Pace 8-1 T 


TEST 2: SKIP TAPE MAR SEQ 0139 T 

766 032372 004737 041344 JSR PC. T30RT :SET UP OTHER COMMAND PACKET 

767 032376 004737 041406 JSR :SET UP O THER COMMAND PACKET 

768 032402 012737 176750 036656 MOV #65000. T300L¥ :SET UP DELAY COUNTER 

769 032410 004737 016054 10$: JSR PC,S 700 INITIALIZE ON CONTROLLER 

770 032414 103426 BCS aT ‘BR IF INIT WAS OK 

771 032416 DELAY 250 SDELAY ROUTINE CALL 
032416 012727 000250 MOV #250, (PC)+ 
0324 .WORD 0 
0324 4 013727 002116 MOV LSDLY, (PC)+ 
0324 «WORD 0 
032432 005367 177772 DEC =6(PC) 
032436 001375 BNE on 
032440 005367 177756 DEC =22(PC) | 
032444 001367 BNE --20 | 

772 032446 005337 036656 DEC T30DLY :BUMP COUNTER 

773 032452 001356 BNE 10$ :BR, IF MORE COUNTING TO DO | 

774 032454 005237 002214 INC FATFLG s ERROR 

778 032460 010001 MOV RO,R1 ZCONTENTS OF TSSR REGISTER 

779 O35¢e5 ERRDF ERRNO, SFIERR, SF IMSG FATAL ERROR TSSR WAS NOT OK 
032462 104455 TRAP ¢ cs RDF 
032464 000311 .WORD 
032466 003646 “WORD SF IERR 
632470 012114 “WORD SFIMSG 

780 032472 20S: 

781 032472 013737 002174 036520 MOV UNITN, T30DSW :SET UP UNIT NUMBER 

782 032500 012704 036500 MOV UISOPACKET RG SSUBROUTINE NEEDS PACKET ADDRESS 

784 J RARARAAAAAAAARARAEEAAEREEAAEAERARAARARRARRAERARAEREREREREREE 

785 $ | 

786 TISSUE WRITE CHARACTERISTICS COMMAND 

788 S eeeneeeneeereneneeneneteeereneneneeneneneneereneeerenenes 

789 

790 032504 004737 010742 JSR PC,WRTCHR ZISSUE WRITE CHARACTERISTICS 

791 032510 103407 BCS 238 :BR, IF COMMAND ISSUED Ok 

792 032512 005237 002214 INC FATFLG SERROR C 

796 032516 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 

797 032520 ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
032520 104456 CSERHRD 
032522 000312 TOORD 202 
032524 005052 -WORD WRTMSG 
032526 012114 “WORD  SFIMSG 

798 032530 23$:  CKLOOP :LOOP IF SELECTED 

ae 032530 104406 TRAP — CSCLP1 

800 J EAAAAAAAAAAAEAARAAEREEEERERERRARARERAEAERERERREEREREEREEE 

801 : 

80 ZISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

804 TITTIIIILITI LILLE LLL ET EET T ett Tee ee 

805 

806 032532 004737 011074 JSR PC REWIND 3CALL TAPE REWIND COMMAND 

807 032536 103411 BCs 308 4 

808 032540 010004 RO,R GET PACKET ADDRESS 

809 032542 016501 000002 nov TSER(RS), R1 :GET STATUS REGISTER 

810 032546 005237 002214 INC FAT COUNT 

814 032552 ERRHRD ERRNO” T3ORWN, PKTSSR :REWIND WOT ACCEPTED 








032552 
032554 


inst 
00031 

040240 
012126 
104406 


013701 


012737 


012126 


036530 
000002 


002214 


000001 


000001 
003116 
003720 


150220 
000000 
016330 
000002 
000200 


002214 


036654 


036622 
036626 


036620 
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TEST 2: SKIP TAPE MARK 


TRAP CSERHRD 
305 


- WORD 
-WORD TSORWN 
eWORD PKTSSR 


30$: CKLOOP :LOOP IF SELECTED 


TRAP CSCLP1 


FAAAAAAAAAAAAAAEAAAAAEEAAERARARAAARARAAAARARARRERRRREREREREE 


GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


o 
FAAAAAAAAAAAAAAEARAARAERAEEERERARARRARRERAEERAAREERERRERREREEE 


MOV T30BFR+6,R1 sPICK ye ar 
MOV , :SET UP EXPECTED 
BIS #BiT1,R2 :SET BOT BIT IN EXPECTED 
CMP R1,R2 [DOES EXP = REC'D 
BEQ 40$ BR, IF EQUAL (OK) 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T30B0T, EXPREC ZTAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
«WORD 204 
«WORD T30B0T 
<WORD EXPREC 
40$:  CKLOOP ;LOOP IF SELECTED 
Cas TRAP _ CS$CLP1 
MOV #1., T30FCN sSET ‘FILE’ COUNTER AT, 1 DECIMAL 
64$: MOV RECORD PER "FILE 
65$: MOV iSET UP PACKETS'S WRITE BUFFER 


FREE, 130wB 
MOV #2000. ,T30SZ [SET RECORD SIZE AT 2000 BYTES 


fF RAAAAAEEAAAAAAARAREAREEREEEERAERAARRAERREREERERAEEEREREREEERE 


[WRITE DATA,ACK,CVC=1 COMMAND 


2 
FAAAAAAAAAAAAEAAAAAEEAAAAEEEEAERARRARRAEARARREERERRERREREEEEE 


MoV #140005, T30PKS :WRITE DATA ACK CVCsI COMMAND 

MOV #T30PK3_R 'SET UP R4 WITH PACKET ADDRESS 

MOV T3OFCN, a GET PILE COUNTER 

SWAB : TO UPPER BYTE 

MOV R RI GET RECORD COUNTER 

ADD R2.R1 [FILE COUNTER IN UPPER, RECORD # LOW 

MOV R1 .aFREE :MOV TO OUT PUT BUFFER 

MOV R4.TSDB(RS) TISSUE COMMAND 

JSR PC. WAITF [WAIT FOR SSR TO SET 

MOV TSSR(RS) RI [GET TSSR CONTENTS 

MOV #SSR,R2 [SET UP EXPECTED 

CMP R1,R2 TARE 

BEQ 70$ 7BR, IF 

INC FATFLG sERROR COUNT 

ERRHRD ERRNO, T30WDD.PKTSSR ZTSSR INCORRECT AFTER WRITE DATA 
TRAP . CSERHRD 
- 205 
“WORD  T3OwDD 
“WORD PKTSSR 


:LOOP IF SELECTED 


—— 





032736 
032740 


864 
865 032742 
866 032746 


3 
874 032750 





104 


00820 
020 $f 000021 
001331 


ooo 

por or Per 

Sus 
ooowoen 


Nm 
AMUIAO YRVSLSS 


WE NLA] 


—u Ww 


ooo 
EP 
M=— Ono 


> $s 


& 
T=) 
o 


040362 
012126 
104406 


141011 
036620 
000000 
016330 
000002 
000200 


002214 


036654 
036654 


141011 
036620 
000000 
016330 
000002 
000200 


002214 


036620 


000006 


036620 
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TRAP  C$CLP1 
INC R3 ZCOUNT THE RECORD COUNTER DOWN 
CMP R3,421 TAT 20 YET 
BNE 65$ 7BR, IF NOT AT 20 RECORDS WRITTEN 


FRRAAAAAAAERARHAEAAEREREEEERERRERARERARRRARERRREEREREEREEE 


[WRITE TAPE MARK,ACK,CVC=1 COMMAND 


. 
° 
fF RAARAAAAAAARAAAAERARAEEEEEAEERAERRARARRAARAARRRRRRRERREERREE 


MOV #141011, T30PK3 WRITE TAPE MARK,ACK,CVC=1 COMMAND 
MOV #T30PK3.RG iSET UP R4 WITH PACKET ADDRESS 
MOV R4, TSDB(RD) COMMAND 
JSR PC.WA tWAIT FOR SSR TO SET 
MOV TSSm ens) RI PICK 
MOV #SSR,R2 :SET UP EXPECTED (SSR ONLY) 
CMP R1,R2 [WAS STATUS GOOD 
BEQ 166$ [BR, IF TERMINATION WAS GOOD 
INC FATFLG ERR 
ERRHRD ERRNO, T30WDC,PKTSSR :TSSR wot’ CORRECT AFTER WRT TAPE M. 
TRAP  CSERHRD 
: 206 
“WORD T30QwDC 
“WORD PKTSSR 
160$:  CKLOOP :LOOP IF SELECTED 
pane: TRAP — C$CLP1 
INC T30FCN :COUNT THE ‘FILE {COUNTER DOWN 
CMP T30F CN, #6 SWRITE 5 FILE TO TAPE 
BNE 64$ 'BR, IF NOT AT 5 FILES WRITTEN 


FRAAARAAAAEAARAAAAARAREERAEERERERARRARRAERRERRERAERRERERERREREE 


[WRITE TAPE MARK,ACK,CVC=1 COMMAND 


° 
FARRAR AAREAEAARAARARAREEAEEEERRARRERARERAEAEERREREREREREREREE 


MOV #141011, T30PK3 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 


MOV #T30PK3,R4 SSET UP R4 WITH PACKET ADDRESS 

MOV R4, TSDB(RS) SISSUE COMMAND 

JSR PC. WAITF SWAIT FOR SSR TO SET 

MOV TSSR(RS) RI :PICK UP TSSR 

MOV #SSR R2 [SET UP EXPECTED (SSR ONLY) 

CMP Rd ‘WAS STATUS GOOD 

BEQ ass 7BR, IF TERMINATION WAS GOOD 

INC FATFLG :€ OUN 

ERRHRD ERRNO, T30WDC,PKTSSR :TSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSERHRD 
«WORD 207 
“WORD T3OWDC 
“WORD PKTSSR 

165$:  CKLOOP ;LOOP IF SELECTED 

TRAP — CS$CLP1 


SREAAAAAAAAAAAEAERAEAEAAEREEAAAEERAEAAEARAEEREAARERERREREEREEEE 


ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


SEQ 0141 


44 





RESSHRRERNSE 


5 
36 033146 


013701 


43 
mea~y 

Wow 
=~ 


: 


—WINuwi 
SN 


011074 


000002 
002214 


036530 
000002 


002214 


010742 
002214 


036520 
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SEQ 0142 
TITITIIILITITIITI ITIL LLL LiTLiLLTLL LiL iT LTT ii iT T iit ii Ti 
JSR PC REWIND ¢CALL TAPE REWIND COMMAND 
BCS 176$ 
MOV RO,R4 GET Bicker ADPRESS 
MOV TSSR(RS) RI 'GET STATUS REGISTER 
INC FATFL sERROR COUNT 
ERRHRD ERRNO, T30RWN,PKTSSR ZREWIND NOT ACCEPTED 
AP —s« CSERHRD 
.WORD 208 
“WORD T3ORWN 
“WORD PKTSSR 
170$:  CKLOOP :LOOP IF SELECTED 
TRAP _— CSCLP1 
FARRAR AAREREARAEEREEREEEEEREERAERAARERRERRRRARERRRERERRERRE 
ZGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
PITTTITITITITITLTTL LLL LTT LTT LTT LTT TTT TT Tit TT iT tte 
MOV T30BFR+6,R1 :PICK UP XSTO 
MOV R1,R :SET UP EXPECTED 
BIS #BIT1,R2 :SET BOT eit IN EXPECTED 
CMP R1,R2 [DOES EXP = REC'D 
BEQ 'BR. IF EQUAL (OK) 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T30BOT ,EXPREC :TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
P 209 
“WORD T3OB0T 
“WORD EXPREC 
180$:  CKLOOP :LOOP IF SELECTED 
TRAP _CS$CLP1 
MOV #T3OIMV,R3 :SET UP POINTER TO COMMAND TABLE 
MOV UNITN, TS0DSW UP UNIT NUMBER 
182$: MOV (R3), T30ETM SET NEXT COMMAND 
MOV #T3OPACKET RG SSUBROUTINE NEEDS PACKET ADDRESS 


FERRARA EAERAEEEEREEEEREEEEERERARAEERAAEREREREREREREEREREREEEE 


TISSUE WRITE CHARACTERISTICS COMMAND 


e 
FERAAAAEAAEREEEEAEERAERREEEREREERERAARAEEAREERERERERRERRRRERED 


188$: 


MOV 
ERRHRD 


CKLOOP 


PC,WRICHR 

188$ 

palate 

ERRNO, WRTMSG, SFIMSG 


sISSUE WRITE CHARACTERISTICS 
IF COMMAND ISSUED Ok 


ROR 
3 SAVE CONTENTS TSSR 
;WRITE CHARACTER! STise vanes 


“GORD 

«WORD 

- WORD 
sLOOP IF SELECTED 


CSERHRD 
210 
WRTMSG 
SF IMSG 
CSCLP1 


-_— 


11 
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967 


974 033252 
975 033260 


976 033266 
977 033272 
978 033276 
979 033304 
980 033310 
981 033314 
982 033320 


03 
984 033352 
985 033356 
986 033360 
987 033364 
988 033366 
y+ 44 Desery 


Ww 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 





ooooo 
—2 23244 


2 sees 
Ny =O 
~“ 

Nm = 

~N 


oS 
= 
w 
~“ 
™ 
N 


141010 
seed 


000250 
002116 
177772 
177756 
036656 
000200 


002214 


036530 
100000 


002214 


tees 
036622 


036656 





FERRARA AAAAAEAAAAARERHEEEEREERRERERERREEEEEERREERERRRERREEE 


SKIP TAPE MARK,ACK,CVC=1 COMMAND 


: 
FRRREREAAAAEAAEEAREAEERAREAREERAREREREAARRERRRRRRRERERERERE 


189$: 
190$: 


191$: 


192$: 


CKLOOP 


#141010, T30PK3 
#1,730RB 


aT TSOPK3,R4 


TSDB(RS) 
#65000". T30DLY 


PCW. 
TSSR(RS) RI 
#SSR,R1 


1 
250 


T30DLY 
190$ 
#SSR,R2 
Ri RE 
95$ 


FATFLG 
ERRHRD ERRNO, T3OSKM,PKTSSR 


FRRAAAAARAEEAREARARAAREEAEARERARAERREARRERAERREERRERRERREREERE 


GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


° 
J ARAAAAAAAAAEEAAAEERAERAEEERAAEARAAAEREEEAARERREERERRREREEES 


195$: 


ERRHRD 


CKLOOP 


T3OBER+6,R1 
#BiT15,R2 
R1,R2 

195$ 


FATFLG 
ERRNO, TSOTMK ,EXPREC 


SEQ 0143 
zSKIP TAPE MARK,ACK,CVC=1 COMMAND 
:SET UP NUMBER kIP 
'SET UP R4 WITH PACKET ADDRESS 
SISSUE COMMAND 
:SET UP DELAY COUNTER 
‘WAIT FOR SSR TO SET 
‘PICK UP TSSR 
‘IS SSR SET YET 
7BR, IF SSR IS SET 
‘CALL DELAY ROUTINE 
MOV #250, (PC)+ 
. WORD 
MOV LSDLY, (PC)+ 
.WORD 
DEC -6(PC) 
BNE 4 
DEC =22(PC) 
BNE --20 
BUMP DELAY ROUTINE 
F MORE DELAY TO GO 
ert UP EXPECTED (SSR ONLY) 
:WAS STATUS GOOD 
:BR, IF TERMINATION WAS GOOD 
sERROR COUNT 
ZTSSR NOT CORRECT AFTER SKIP TAPE M. 
TRAP  CSERHRD 
«WORD 211 
“WORD TS3OSKM 
“WORD PKTSSR 
:LOOP IF SELECTED 
TRAP  CSCLP1 
:PICK UP XSTO 
SET ry EXPECTED 
‘SET TMK seit IN EXPECTED 
:DOES EXP = REC'D 
:BR, IF EQUAL (OK) (0K) 
:TMK NOT SET AFOR — TAPE MAR 
TRAP * PSERURD 
«WORD 212 
“WORD T3OTMK 
-WORD EXPREC 


:LOOP IF SELECTED 


td 
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033440 104406 
033442 012700 
0 004737 
0 013737 


Soooocoocco0co 
er 
OOONAULWw 
wa 
iv.» p>) 

fh 


m 
oS 
e 
nN 
oooo 
2 


Mrnronror 
BNAULWN—o 
So So 
Ww Ww 
Ww tw 
SSuS 


Ww 

w 

> 

os 
Seco 
Noa 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1047 03372 
1048 033574 


ooooooocoeoc“ecoo 


SISS 


000327 
037242 
015554 


104406 


177777 
017502 
003116 036622 


140001 036620 
O2gbe8 
003720 036626 


00 
016330 
000002 
000200 


002214 


147350 
177777 


002214 


MOV #177777,RO 
JSR PC, FILLMEM 
MOV FREE, T3ORB 


SEQ 0144 


TRAP CSCLP1 
3 VALUE TO ete ke TO MEMORY 
sFILL MEM WITH ALL ONES 
STARTING READ BUFFER ADDRESS 


PIPPI TTT iiiiiiiiiiiiigy 


TREAD FORWARD, ACK,CVC=1 COMMAND 


° 
J RAAAAAAAARAAAAAAAARAEAEERAEAARARRAARERRERRRERERARREREREERE 


MOV #140001, L7OPRS 
#T30PK3,R 


MOV #2000, #3082 
MOV R4, TSDB(RS 


JSR PC ,WAITF 

MOV TSSR(RS) RI 

MOV #SSR,R2 

CMP R1,R2 

BEQ 200$ 

INC FATFLG 

ERRHRD ERRNO, T30RDF ,PKTSSR 
200$: CKLOOP 

MOV aFREE,R1 

MOV #177777,R2 

CMP R1,R2 

BNE 

INC FATFLG 

ERRHRD ERRNO, T3ODTR,EXPREC 
220$:  CKLOOP 

MOV #1001,R2 

MOV aFREE,R1 

CMP R2,R1 

BEQ 22 

INC FATFL 

ERRHRD allay, T30PTB, EXPREC 
228%: CKLOOP 


sREAD FORWARD. ACK.CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
3SET + conan SIZE IN PACKET 


71S OMMAND 

sWAIT FOR SSR TO SET 
sGET TSSR CONTENTS 
3SET UP EXPECTED 
ARE THEY EQUAL 


ERROR COUNT 
zTSSR INCORRECT AFTER wen pace 


CSERHRD 
«WORD 213 
«WORD T30RDF 
«WORD PKTSSR 
LOOP IF SELECTED 
CSCLP1 


TRAP 
sFIRST LOC IN READ BUFFER 
EXPECTED IF NO DATA TRANS. 
DID ANY DATA GET TRANSFERRED 
BR, IF NO DATA TRANS (GOOD) 


ERROR COUNT 
;DATA TRANSFERRED ON READ TAPE MARK 
TRAP SE 


CSERHRD 
- WORD 14 
«WORD T3ODTR 
WORD EXPREC 
sLOOP IF SELECTED see 


:SET UP RECORD NUMBER EXPECTED (FILE ef 
[GET INFO FROM BUFFE 
SARE THEY EQUAL 
BR, IF EQUAL (OK) 
COUNT 
RECORD posi rion WAS NOT CORRECT 


TRAP CSERHRD 

WORD 215 

WORD T30PTB 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


FRRAAAAAAAAAAAAAAAARERAEAEARERARERARRAERAAAAARAAAARRREREREEEE 


ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 




















1063 

1064 

1065 03 $ 

1066 0336 

1067 0336 

1068 0336 

1069 03364 

1073 033646 
033646 
033650 
033652 
033654 

1074 033656 
033656 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 033660 

1083 03 

1084 03 

1085 033672 

1086 033674 

1087 033676 

1091 033702 


004 4 
arcen 


b16s01 1 
005237 


104456 
000330 
04 


013701 


011074 


000002 
002214 


036530 
occn0? 


002214 


177777 


033214 


002214 
017262 


000017 
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FARRAR ARAAEAAARERERAAREEAEAEARAARARERERAARARRAEREEEREEREREE 


230$: 


JSR 
BCS 
MOV 


INC 
ERRHRD ERRNO, TSORWN,PKTSSR 


CKLOOP 


sige 


RO,R4 
TSR(RS), oR1 


sCALL TAPE Shee COMMAND 
;BR, NO PROBLEM 


E 
: SAVE PACKET a 
GET TSSR STATUS 


FERARAAERARARAAAEEERAEEAEEERERERARERARARERERERAEREREREREREE 


GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


o 
J AAAAAAAAEREERAEAAERARAREAEERRAAARARRAAERERAARARRRARRERARREEE 


2408: 


330$: 


MOV 
MOV 
BIS 
CMP 
BEQ 


INC 
ERRHRD 


T30BFR+6,R1 
#BiT1,R2 
R1,R2 


FATFLG 
ERRNO, T30B0T ,EXPREC 


(R3)+ 
(R3),R1 
R1,4177777 
330$ 

182$ 


FATFLG,#15. 
999$ 
PC, CKDROP 


sERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP 
«WORD 
- WORD 
«WORD 
;LOOP IF SELECTED 
TRAP 
sPICK UP xsTO 
sSET UP_EXPECTED 
SET BOT BIT IN whedees 
DOES EXP = REC'D 


38R, IF EQUAL (OK) 
sERROR COUNT 

:TAPE NOT AT BOT AFTER REWIND 
TRAP 
- WORD 
- WORD 
«WORD 

;LOOP IF SELECTED 


sPOINT TO NEXT POSITION 
GET NEXT COMMAND ETC. 


2 JUMP T 
;LOOP IF SELECTED 


TRAP 
36€€KKKKKKK< END SUBTEST >>>>>>>>>>> 
110044: 


TRAP 
31S ERROR COUNT AT Ms 
2BR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


SEQ 0145 


CSERHRD 
216 


T3ORWN 
PKTSSR 


CSCLP1 


CSCLP1 


CSESUB 
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TEST 2: SKIP TAPE MA SEQ 0146 

1105 3+ 

1106 3 

1107 ;TEST 2, SUBTEST 2 

1109 :VERIF IES My SKIP TAPE MARKS COMMANDS WITH A TAPE 

1110 K COUN T GREAT ER THAN 1 OPERATE PROPERLY. COUNTS 

1111 COF 2, 8,64,256, AND 512 ARE TESTED. 

111 TESTING sfocence is SIMILAR TO THAT. USED IN SUBTEST 1. 

1114 : 

1115 : 

Ht . 

1118 033752 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
033752 12.2: 
033752 104402 TRAP  C$BSUB 

1119 033754 004737 041252 JSR PC, T3OREST :SET COMMAND PACKET 

1120 033760 005037 036654 CLR T30F CN ZCLEAR FILE COUNTER 

1121 033764 004737 041344 JSR PC, T3ORT2 :SET UP OTHER COMMAND PACKET 

1122 033770 004737 041406 JSR PC. T3ORTS :SET UP OTHER COMMAND PACKET 

1123 033774 012737 176750 036656 MOV #65000. , T30DLY 7SET UP DELAY COUNTER 

1124 034002 004737 0160 10$: JSR PC, SOF INIT ‘DO INITIALIZE ON CONTROLLER 

1125 034006 103426 BCS 208 ‘BR IF INIT WAS OK 

1126 034010 DELAY 250 ‘DELAY ROUTINE CALL 
034010 012727 000250 MOV #250, (PC)+ 
034014 000000 . WORD 
034016 013727 002116 MOV LSDLY, (PC)+ 
034022 000000 . WORD 
034024 005367 177772 DEC -6(PC) 
034030 001375 BNE 4 
034032 005367 177756 DEC -22(PC) 
034036 001367 BNE --20 

1127 034040 005337 036656 DEC T30DLY :BUMP COUNTER 

1128 034044 001356 BNE 10$ BR, IF MORE COUNTING TO DO 

1129 034046 005237 002214 INC FATFLG ZERROR COUNT 

1133 034052 010001 MOV RO,R1 ZCONTENTS OF TSSR REGISTER 

1134 034054 ERRDF ERRNO, SFIERR, SF IMSG [FATAL ERROR TSSR WAS NOT OK 
034054 104455 TRAP  CSERDF 
034056 000332 «WORD 218 
034060 003646 “WORD  SFIERR 
034062 012114 <WORD SFIMSG 

1135 034064 20S: 

1136 034 013737 002174 036520 MOV UNITN, T30DSW :SET UP UNIT NUMBER 

1137 034072 012704 036500 MOV #TSOPACKET RG S SUBROUTINE NEEDS PACKET ADDRESS 

1139 J ARAAAAAAAEAAAAAAAAAARAERERAARARERAARAARERAEREREREREEEEREEREEE 

1140 : 

1141 TISSUE WRITE CHARACTERISTICS COMMAND 

ry TITITITILILITIL LLL LLL LLL TTT Tt 

1144 

1145 034076 004737 010742 JSR PC WRTCHR TISSUE WRITE CHARACTERISTICS 

1146 034102 103407 BCS 23§ :BR, IF COMMAND ISSUED OK 

1147 034104 005237 002214 INC FATFLG sERROR 

1151 034110 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

1152 034112 ERRHRD ERRNO,WRIMSG, SF IMSG WRITE CHARACTERISTI Sc FAILED 
034112 104456 CSERHRD 
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034114 060333 «WORD 219 
034116 005052 “WORD  WRTMSG 
034120 012114 “WORD  SFIMSG 

1153 034128 23$:  CKLOOP :LOOP IF SELECTED 

ine 034122 104406 TRAP  C$CLP1 

1155 FERRARA CRAREAEAEEAAAREREERERERARRARARRERARERERRRREERRREEERE 

1156 ; 

1157 TISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

1159 PITITISITITI TILL TL LIT TTL LLL LLL T LTT LTT TTT Tie 

1160 

1161 034124 004737 011074 JSR PC REWIND :CALL TAPE REWIND COMMAND 

116¢ 034130 103411 BCS 30$ F NO PROBLEM 

1163 034132 010004 MOV RO,R4 ZGET PACKET ADDRESS 

1164 034134 016501 000002 MOV TSSR(RS) RI [GET STATUS REGISTER 

1165 034140 005237 002214 INC FL sERROR COUNT 

1169 034144 ERRHRD ERRNO, T3ORWN,PKTSSR zREWIND NOT ACCEPTED 
034144 104456 CSERHRD 
034146 334 «WORD 220 
034150 0402 : T3ORWN 
034152 012126 “WORD PKTSSR 

1170 034154 30$:  CKLOOP ;LOOP IF SELECTED 

on 034154 104406 TRAP — CSCLP1 

1172 FRRAAAAAAAAAAARAAAAAAAREERERARAAARARARRARARERARRAEERRERERERRRE 

1173 : 

1374 ZGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

1176 PITIIIITLILITILE LLL L ELLE TTL T TTT TTT TTT Tee 

1177 

1178 034156 013701 036530 MOV T30BFR+6,R1 :PICK UP XSTO 

1179 034162 010102 MOV : [SET UP EXPECTED 

1180 034164 052702 000002 BIS #BiT1,R2 TSET BOT BIT IN EXPECTED 

1181 034170 020102 CMP R1,R2 :DOES EXP = REC'D 

1182 034172 001406 BEQ 40$ BR. IF EQUAL (Ok) 

1183 034174 005237 002214 INC FATFLG SERROR COUNT 

1187 034200 ERRHRD ERRNO, T30BOT,EXPREC ZTAPE NOT AT BOT AFTER REWIND 
034200 104456 TRAP  CSERHRD 
034202 335 «WORD 221 
034204 040041 [WORD T3OBOT 
034206 015554 <WORD EXPREC 

1188 034210 40$:  CKLOOP ;LOOP IF SELECTED 
034210 104406 CSCLP1 

1189 034212 012737 000001 036654 MOV #1. T30FCN :SET ‘FILE’ COUNTER AT 1 TOECIMAL 

1190 034220 012703 000001 64$: MOV [ONE RECORD PER FILE’ 

1191 034224 013737 003116 036622 65$: MOV FREE, 130WB [SET UP PACKETS'S WRITE BUFFER 

119@ 034232 012737 000024 036626 MOV #20. .130SZ [SET RECORD SIZE AT 2000 BYTES 

1194 J ARAAAAAAAAAAAAAAAAAAEAEEEAAEAARAAERARAERERAEARERERRAREEEEEEE 

1195 3 

1196 [WRITE DATA,ACK,CVC=1 COMMAND 

1198 TITITITITITITILLLL LLL LLL LTT Lt itt rere ete 

1199 

1200 034240 012737 140005 036620 MOV #140005, T30PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 

1201 034246 012704 036620 MOV #T30PK3.R4 [SET UP R4 WITH PACKET ADDRESS 


TEST 1 = HARDWARE y 3) es TEST MACRO M1113 25-MAY-82 08:43 PAGE E 85-2 
TEST 2: SKIP TAPE MAR 


SEQ 0148 


44 


1208 034252 013702 036654 MOV T30FCN,R2 GET FILE COUNTER 

1203 034256 00030 SWAB OR MOVE TO UPPER BYTE 

1204 034260 010301 MOV R3,R1 :GET RECORD COUNTER 

1205 034262 060201 ADD 2-R1 Batt LE COUNTER IN UPPER, RECORD # LOW 

1206 034264 010177 146626 MOV R1,aFREE TO OUT PUT BUFFER : 

1207 034270 010465 MOV RG, TSDB(RS) arts COMMAND J 

1208 034274 737 016330 JSR PC: SWAIT FOR SSR TO SET 

1209 034 016501 000002 MOV TSénchs), R1 :GET TSSR CONTENTS 

1210 034304 012702 000200 MOV #SSR_R2 [SET UP EXPECTED 

1211 034310 020102 CMP R1,Re : 

1212 034312 001406 BEQ 70$ 7BR, 

1213 034314 005237 002214 INC FATFLG sERROR COUNT 

1217 034320 ERRHRD ERRNO, T30WDD,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
034320 104456 TRAP CSE 
034322 000336 «WORD 222 
034324 037170 “WORD  T3OWDD 
034326 012126 “WORD PKTSSR 

1218 034330 70$:  CKLOOP :LOOP IF SELECTED 
034330 104406 RAP _—‘ C$CLP1 

1219 034332 005203 INC R3 ZCOUNT THE RECORD COUNTER DOWN 

1220 034334 020327 000021 CMP R3,421 TAT 20 YET 

leet 034340 001331 BNE 658 7BR, IF NOT AT 20 RECORDS WRITTEN 

1223 J RAAARAAAAAAERERARAAAREEEEEEAARARARARAERAARERERREARRRRREEREREE 

1224 3 

1225 [WRITE TAPE MARK,ACK,CVC=1 COMMAND 

1227 TITITIITITILITIL LLL TTL ELE E LTTE TTT TTT TT TTT Tee 

1228 

1229 034342 012737 141011 036620 MOV #141011, T30PK3 WRITE TAPE MARK,ACK,CVC=1 COMMAND 

1230 034350 012704 036620 MOV #T3OPK3_R 3SET UP R4 WITH PACKET ADDRESS 

1231 034354 010465 000000 MOV R4, TSbBiRS) COMMAND 

1232 0 737 016330 JSR PC.WAITE tWAIT FOR SSR TO SET 

1233 0 016501 MOV TSSR(RS) RI ‘PICK UP TSSR 

1234 034370 012702 000200 MOV #SSR,_R2 SET UP EXPECTED (SSR ONLY) 

1235 034374 020102 CMP R1,R2 :WAS STATUS GOOD 

1236 034376 001406 BEQ 160$ [BR, IF TERMINATION WAS GOOD 

1237 034400 005237 002214 INC FATFLG sERROR COUNT 

1241 034404 ERRHRD ERRNO, T30WDC,PKTSSR ZTSSR NOT CORRECT AFTER WRT TAPE M. 
034404 104456 TRAP CSERHRD 
034406 > 223 
034410 040362 “WORD  T3OWDC 
034412 012126 “WORD PKTSSR 

1242 034414 160$:  CKLOOP :LOOP IF SELECTED 
34414 104406 TRAP  C$CLP1 

1243 034416 005237 036654 INC T30F CN :COUNT THE WFILE™ COUNTER DOWN 

1244 034422 023727 036654 000031 CMP T30F CN, #25. SWRITE 25 FILES TO TAPE 

1245 034430 001273 BNE 645 7BR, IF NOT AT 25 FILES WRITTEN 

1247 J ARAAAAAAAAAAAAEAAAAEAAAEEEAEAEAARAEREEERERREEREEREERREEREEE 

1248 3 

1249 sWRITE TAPE MARK,ACK,CVC=1 COMMAND 

1251 TITITITITITITILLTLL LLL LLL LLL LLL TEE Tete ee 

125 

1328 034432 012737 141011 036620 MOV #141011 -TSOPK3 WRITE TAPE MARK,ACK,CVC=1 COMMAND 

1254 034440 012704 036620 MOV #T30PK3.R SET UP R4 WITH PACKET ADDRESS 
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1255 034444 or046s 000000 MOV R4, TSDB(RS) ZISSUE COMMAND 

1256 034450 004737 016330 JSR PC ,WAITF :WAIT FOR SSR TO SET 

1257 034454 016501 000002 MOV TSSR(RS),R1 “PICK UP 

1258 034460 012702 000200 MOV #SSR,R2 SET UP EXPECTED (SSR ONLY) 

1259 034464 02010 CMP R1,Re zWA S STATUS GOOD 

1260 034466 001406 BEQ 165$ [BR, IF TERMINATION WAS GOOD 

1261 034470 005237 002214 INC FATFLG ZER 

1265 034474 ERRHRD ERRNO, T30WDC,PKTSSR sTSSR NOT CORRECT AFTER WRT TAPE M. 
034474 104456 TRAP  C$ERHRD 
034476 000340 «WORD 224 
34500 040362 “WORD T3OWDC 
034502 012126 “WORD PKTSSR 

1266 034504 165$:  CKLOOP ;LOOP IF SELECTED 

ep 034504 104406 TRAP  CSCLP1 

1268 J RRAAAAAAAAARAARAEERAAERERERERAEAAAERAERARRERRERRRREREREEREEE 

1269 3 

1270 ZISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

1272 PITTIIIITILITI LLL LITT LLL LTTE LTT LTT TTT tite 

1273 

1274 034506 004737 011074 JSR PC REWIND 3CALL TAPE REWIND COMMAND 

1275 034512 103411 BCS 170$ F NO PROBLEM 

1276 034514 010004 MOV RO,R4 iGET PACKET ADDRESS 

1277 034516 016501 000002 MOV TSSR(RS) RI :GET STATUS REGISTER 

1278 034522 005237 002214 INC FATFL sERROR COUNT 

1282 034526 ERRHRD ERRNO, T3ORWN,PKTSSR sREWIND NOT ACCEPTED 
034526 104456 TRAP  CSERHRD 
034530 000341 «WORD 225 
034532 040240 “WORD T3ORWN 
034534 012126 - eWORD PKTSSR 

1283 034536 170$:  CKLOOP SLOOP IF SELECTED 

1284 034536 104406 ai; TRAP CSCLP1 

1285 J AAAAAARAAAAEREAAAEERAEEEREERERAARAAARAERAAAARARRERRERERREREE 

1286 ; 

1287 3GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

1289 PITITITITILITILI LITTLE LTTE TTT TTT TTT TTT Tete 

1290 

1291 034540 013701 036530 MOV T30BFR+6,R1 PICK UP UP XSTO 

1298 034544 01010 MOV R1,R2 [SET UP EXPECTED 

1293 034546 052702 000002 BIS #BiT1,R2 :SET BOT BIT IN EXPECTED 

1294 034552 020102 CMP R1,R2 [DOES EXP = REC'D 

1295 034554 001406 BEQ 180$ 3BR, IF "EQUAL (OK) 

129% 034556 005237 002214 INC FATFLG ‘\ SERROR COUNT 

1300 Oetees ERRHRD ERRNO, 130B0T,EXPREC sTAPE NOT AT BOT AFTER REWIND 
034 104456 TRAP  CSERHRD 
034564 «WORD 226 
034566 040041 “WORD T30B0T 
034570 015554 “WORD EXPREC 

1301 034572 180$:  CKLOOP :LOOP IF SELECTED 
034572 104406 TRAP _— CSCLP1 

1302 034574 012737 000002 036654 MOV #2, T30FCN 7SET TO NUMBER OF SKIP FILES" 

130 602 012703 036636 MOV #TSOIMV,R3 [SET UP POINTER TO COMMAND TABLE 

1304 013737 002174 036520 MOV UNITN, TS0DSW [SET UP UNIT NUMBER 

1305 034614 011337 036516 182$: MOV (R3), T30ETM :GET NEXT 
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1306 034620 012704 036500 MOV #T30PACKET,R4 ySUBROUTINE NEEDS PACKET ADDRESS 

1308 FERRARA AAAAAAAEAAAEAAAAAEEEEAERARAREEARERERAERRRRRERHRREEEE 

1309 : 

139 ISSUE WRITE CHARACTERISTICS COMMAND 

1si¢ TITITITITITITITI TILL LLL LTT LLL LTT TTT LTT iii Tit Tit 

131 

1314 034624 004737 010742 JSR PC, WRTCHR ZISSUE WRITE CHARACTERISTICS 

1315 034630 103407 BCS 188$ zBR, IF COMMAND ISSUED OK 

1316 034632 005237 002214 INC FATFLG 

1320 034636 010001 MOV RO,R1 zSAVE C ONTENTS OF TSSR 

1321 034640 ERRHRD ERRNO,WRIMSG, SF IMSG WRITE COHARAL TERISTIec FAILED 
034640 104456 CSERHRD 
034642 00034 TuORD 227 
034644 005052 “WORD WRTMSG 
034646 012114 ~WORD SF IMSG 

1322 034650 188$: CKLOOP ;LOOP IF SELECTED 

vain 034650 104406 TRAP  C$CLP1 

1324 FRRAAAAAAAAAAARAERAAREEERERERERAAARRRAEERAERARRERERRREREEREEE 

1325 3 

1336 3SKIP TAPE MARK,ACK,CVC=1 COMMAND 

1328 TITTIILITIITLT LLL LTT LTT LTTE TTT iT 

1329 

1330 034652 012737 141010 036620 MOV #141010, T30PK3 ZSKIP TAPE MARK,ACK,CVC=1 COMMAND 

1331 034660 013737 036654 0366 MOV T30F CN, T3ORB 7SET UP NUMBER KI 

1332 034666 012704 036620 MOV #T30PK3,R4 3SET UP _R4 WITH PACKET ADDRESS 

1333 034672 010465 000000 189$: MOV R4, TSDB(RS) COMMAND 

1334 034676 012737 176750 036656 MOV #65000. ,T30DLY ?SET UP DELAY COUNTER 

1335 034704 004737 016330 190$: JSR PC,WAITE :WAIT FOR SSR TO SET 

1336 034710 016501 000002 MOV TSSR(RS) RI sPICK UP TSSR 

1337 034714 032701 000200 BIT #SSR,R1 SIS SSR SET YET 

1338 034720 001017 BNE 191$ 7BR, IF SSR IS SET 

1339 03472 DELAY 250 SCALL DELAY ROUTINE 
034722 012727 000250 MOV #250, (PC)+ 
034726 000000 .WORD 0 
034730 013727 002116 MOV LSDLY, (PC)+ 
034734 «WORD 
34736 005367 177772 DEC -6(PC) 
034742 001375 BNE 74 
034744 005367 177756 DEC -22(PC) 
034750 001367 BNE --20 

1340 034752 005337 036656 DEC T30DLY :BUMP DELAY ROUTINE 

1341 034756 001352 BNE 90$ 7BR, IF MORE DELAY TO GO 

1348 034760 012702 000200 191$: MOV #SSR,R2 ZSET UP EXPECTED (SSR ONLY) 

1343 034764 020102 CMP R1,R2 [WAS STATUS GOOD 

1344 034766 001406 BEQ 193$ BR, IF TERMINATION WAS GOOD 

1345 034770 005237 002214 INC FATFLG RROR COUNT 

1349 034774 ERRHRD ERRNO, T30SKM,PKTSSR :TSSR wot” CORRECT AFTER SKIP TAPE M. 
034774 104456 TRAP  CSERHRD 
034776 000344 «WORD 28 
035000 037114 “WORD TS3OSKM 
035002 012126 .WORD PKTSSR 


1350 035004 192$: CKLOOP :LOOP IF SELECTED 
035004 104406 TRAP CSCLP1 





— 
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w 
-_ 
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WOON 


WAWANAA 
UMEwrn 


EXES 


ee ed ed ed ed aed wd =) as =) td 


Be 


0 

1368 035042 

5046 

1371 035052 
1372 
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Ww 
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3 
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35130 


W 
oO 
~m 


a 
Ww 
© 
w 
So 
AWWA 
w 
— 
we 
NmO 


SSERVSF 


013701 


036530 
100000 


002214 


177777 
ot 7308 
003116 


145750 
177777 


002214 


036622 


036620 
036626 


SEQ 0151 


FRRAAAAAARARAAAAAAAAAAEEEAERARARERARARERRAAEEREAREEREERREE 


GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


° 
FRAAAAAAAAAAAAAAAAAEREAEEEARAERERARAERAAERRERRAREEERRKEEHERE 


195$: 


T30BFR+6,R1 
#B1T15,R2 
R1.R2 

195$ 


FATFLG 
ERRNO, TSOTMK ,EXPREC 


#177777,RO 
PC. FILLMEM 
FREE, T3ORB 


sPICK UP xsTO 
iSET UP EXPECTED 
SET TMK BIT IN abate 
;DOES EXP = REC'D 
:BR, IF orate (OK) 


sERROR COUNT 
;TMK NOT SET AFTER WRT TAPE MARK 


TRAP CSERHRD 
-WORD 229 
-WORD TSOTMK 
WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


TRAP 
VALUE TO WRITTEN TO MEMORY 
sFILL MEM WITH ALL ONES 
zSTARTING READ BUFFER ADDRESS 


FERRARA AAEAERAEEAEEAREEREREERARARARRARERRARERRAERERREEREREE 


TREAD FORWARD, ACK,CVC=1 COMMAND 


e 
FRRAAAAAAAAAEAAARARARRAERAEEEAAEERARAERRARAAAERARARRERRERRAEREREE 


200$: 


#140001, Sati 
8 a K3,R 


20.13 3687 
+ 7SpB(R5) 


PC.WA 
TSSRCRS) RI 
#SSR_R2 
1,R2 

06$ 


FATFLG 
ERRNO, TSORDF ,PKTSSR 


177997 .R2 
R1,R2 


FATFLG 
ERRHRD ERRNO, TSODTR,EXPREC 


sREAD FORWARD, ACK,CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
¢SET ECOMPAND SIZE IN PACKET 


SWAIT FOR SSR TO SET 
GET TSSR CONTENTS 
sSET UP EXPECTED 

sARE THEY 


sERROR COUNT 
zTSSR INCORRECT AFTER ag Fata 


CSERHRD 
° 230 
-WORD TSORDF 
-WORD PKTSSR 
sLOOP IF SELECTED 
CSCLP1 


sFIRST LOC IN READ BUFFER 


:BR, IF WOR orne 


CSERHRD 
ORD 1 
WORD TSODTR 
WORD EXPREC 


do et 
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TEST 2: SKIP TAPE MARK SEQ 0152 

1403 035172 220$:  CKLOOP :LOOP IF SELECTED 
035172 1044 TRAP — C$CLP1 

1404 035174 013702 036654 MOV T30FCN,R2 :GET NUMBER OF SKI 

1405 035200 00520 INC Re iSeT TO CORRECT FILE VALUE 

1406 035202 00030 SWAB OR WAP BYTE HALVES 

1407 035206 052702 000001 BIS #B1TO,R2 ‘Se FOR RECORD #1 

1408 035210 017701 145702 MOV aFREE.R1 :GET INFO FROM BUFFER 

1409 035214 020201 CMP Rg RI TARE THEY EQUAL 

1410 035216 001406 BEQ 228$ BR, IF EQUAL (OK) 

1411 035220 005237 002214 INC FATFLG COUNT 

1415 035204 ERRHRD ERRNO, T30PTB,EXPREC RECORD b5Si TION WAS NOT CORRECT 
035224 104456 TRAP  CSERHRD 
035226 000350 «WORD 232 
035230 037242 -WORD T3OPTB 
035232 015554 “WORD EXPREC 

1416 035234 228$:  CKLOOP ;LOOP IF SELECTED 

ane 035234 104406 TRAP C$CLP1 

1418 FS TAAAAAAAAAAAARARAREAREEEERAAERARERRERRRRERARRRRARRERREREKE 

1419 ; 

1420 SISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

1422 ITITIIIIILLILIL LLL LLL ELLE ELT 

23 

1424 035236 004737 011074 JSR PC REWIND :CALL TAPE REWIND COMMAND 

1425 035242 103411 BCS 236s 7BR, IF NO PROBLEM 

1426 035244 010004 MOV RO,R4 SAVE PACKET ADDRESS 

1427 035246 016501 000002 MOV TSSR(RS) RI :GET TSSR STATUS 

1428 035252 005237 002214 INC FATFLG TERROR COUNT 

1432 035256 ERRHRD ERRNO, TSORWN,PKTSSR sREWIND NOT ACCEPTED 
035256 104456 TRAP CSERHRD 
035260 000351 «WORD 233 
035262 040240 “WORD T3ORWN 
035264 012126 “WORD  PKTSSR 

1433 035266 230$:  CKLOOP :LOOP IF SELECTED 

ene 035266 104406 TRAP  CS$CLP1 

1435 J ERAAAAEAAAARAERAAAAEEEAREREEERERERERARRAREERERERERREEERRREREE 

14 : 

1637 3GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

1439 TITITITILILITIL LLL ELLE ELLE LTT TTT TTT 

1440 

1441 035270 013701 036530 MOV T30BFR+6,R1 :PICK UP XSTO 

1442 035274 01010 MOV R1,R2 :SET UP EXPECTED 

144 035676 052702 000002 BIS #BiT1,R2 ‘SET BOT pelt IN EXPECTED 

1444 035 020102 CMP R1,R2- [DOES EXP = REC'D 

1445 035304 0014 BEQ 2408 78R, IF EQUAL (OK) 

1446 035 005237 002214 INC FATFLG sERROR COUNT 

1450 03531 ERRHRD ERRNO, T30BOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
035312 104456 TRAP  CSERHRD 
035314 000352 «WORD 2 
035316 040041 “WORD  T3OBOT 
035320 015554 -WORD EXPREC 

1451 035 240$:  CKLOOP :LOOP IF SELECTED 
035322 1044 TRAP — CSCLP1 

1452 035324 00572 TST (R3)+¢ zPOINT TO NEXT POSITION 





aies oe 


tetas 
RSSERENE RSS 


So 
w 
w 
S 
So 





177777 
036654 


036654 
034614 


002214 
017262 
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(R3),R1 
R1,4177777 
336$ 
T30FCN,R1 


R1 
R1,T30FCN 


182$ 


FATFLG,#15. 
999$ 


PC, CKDROP 


UMP TO MORE COMMANDS TO DO 
:LOOP IF SELECTED 


TRAP C 
3hKKKKK KKK END SUBTEST >>>>>>>>>>> 
L10045: 

TRAP 
31S ERROR COUNT AT 25 


BR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


SEQ 0153 


— 






L 
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TEST 2: SKIP TAPE MARK 
1469 





12 
91 


SEQ 0154 


TEST 1_= HARDWARE ye “~ TEST MACRO M1113 25-MAY-82 08:43 PAGE e 33 








TEST 2: SKIP TAPE MA SEQ 0155 
s¢ 
ZTEST 2, SUBTEST 3 
:VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
ZISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 
SFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 
[FUNCTION (NEF) ERROR BIT SET. 
5 :- 
035376 BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
035376 12.3: 
035376 104402 TRAP  C$BSUB 
1487 035400 004737 041252 JSR PC, T30REST :SET COMMAND PACKET 
1488 035404 005037 036654 CLR T3OFCN ZCLEAR FILE COUNTER 
1489 035410 004737 041344 JSR PC, T3ORT2 7SET UP OTHER COMMAND PACKET 
035414 004737 041406 JSR PC-T3ORTS. - :SET UP OTHER COMMAND PACKET 
035420 012737 176750 036656 MOV #65000. ,T30DLY :SET UP DELAY COUNTER 
035426 004737 016054 10$: JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
1493 035432 103426 BCS 20$ :BR IF INIT WAS OK 
035434 .. DELAY 250 [DELAY ROUTINE CALL 
035434 012727 000250 ~ MOV #250, (PC)+ 
035440 000000 44 «WORD 0 
035442 013727 002116 MOV LSDLY, (PC)+ 
035446 . WORD 
035450 005367 177772 DEC -6(PC) 
035454 001375 BNE 4 
035456 005367 177756 a ; DEC -22(PC) 
035462 001367 ; BNE --20 
035464 005337 036656 DEC T30DLY :BUMP COUNTER 
1496 035470 001356 Pn BNE 10$ BR, IF MORE COUNTING TO DO 
1497 035472 005237 002214 INC FATFLG sERROR COUNT 
035476 010001 MOV RO,R1 :CONTENTS OF TSSR REGISTER 
035500 ERRDF ERRNO, SFIERR,SFIMSG TFATAL ERROR TSSR WAS NOT OK 
035500 104455 TRAP CSERDF 
035502 000353 «WORD 235 
035504 003646 -WORD  SFIERR 
035506 012114 <WORD SFIMSG 
035510 20$: 
504 035510 013737 002174 036520 sav UNITN, T30DSW 7SET UP UNIT NUMBER 
1505 035516, 012704 236500 MLV AT3OPACKET,R4 SSUBROUTINE NEEDS PACKET ADDRESS 
1507 . RRAERAAARRIRAEAAAEAARRAREEEEEERAAAARAAEARARAREERRARERERERERE 
1508 F 
1509 3 (SSuz WRITE CHARACTERISTICS COMMAND 
1511 PTITITITITITITLLLIT TLL LTT LLL LETT TTT T eit t tite 
1512 
1513 035522 004737 010742 JSR PC,WRTCHR ZISSUE WRITE CHARACTERISTICS 
1514 035526 103407 BCS 23$ :BR, IF COMMAND ISSUED OK 
1515 035530 005237 002214 INC FATFLG sERROR COUNT 
1519 035534 010001 MOV RO,R1 ySAVE CONTENTS OF TSSR 





So 
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1520 035536 
035536 


ONAOUSE 


Nm 
Oo 


035550 


Rebel} 
So 
Ww 
w 
w 
w 
o 


WW 
Nw 
° 
- 


46 035602 
606 


TEST 2: SKIP TAPE MA 


4 
005052 
012114 


104406 


04 
016501 
005 


40 
012126 
104406 


013701 


040041 
015554 
104406 
012737 


011074 


000002 
002214 


036530 
¢90002 


002214 


000001 


141410 
036620 
000000 


036622 


036620 


SEQ 0156 
ERRHRD ERRNO,WRTMSG, SF IMSG :WRITE CHARACTERISTISC FAILED 
TRAP  CSERHRD 
«WORD 236 
“WORD WRTMSG 
“WORD  SFIMSG 
23$:  CKLOOP :LOOP IF SELECTED 
TRAP  C$CLP1 
FARRAR AAAAAEAAAEREARAEAEEREEREREARRERERRARRRARRRRERRREREERE 
TISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
PITITITITITITITL TIT LITTLLTTLLT LL TLL LT LTT TTT T TTT i Tete 
JSR PC REWIND CALL TAPE REWIND COMMAND 
BCS 30$ :BR, IF NO PROBLEM 
MOV RO,R4 :GET PACKET ADDRESS 
MOV TSSR(RS) RI :GET STATUS REGISTER 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T3ORWN,PKTSSR :REWIND NOT ACCEPTED 
AP —- CSERHRD 
«WORD 237 
“WORD T3ORWN 
“WORD PKTSSR 
30$:  CKLOOP :LOOP IF SELECTED 
TRAP _— C$CLP1 
FRRAAARAARARAEEAEEREERREERERERERAARARAEAREERREERHEEEERREKERKEE 
:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
TITTIIITITI LILI LITL LTT LTT LLL ETL T LETTE Tire TTT tte 
MOV T30BFR+6,R1 :PICK UP XSTO 
MOV R1,R2 ‘SET UP EXPECTED 
BIS #BIT1,R2 :SET BOT pelt IN. EXPECTED 
CMP R1,R2 DOES EXP REC’ 
BEQ 40$ :BR, F EQUAL (OK) 
INC FATFLG SERROR COUNT 
ERRHRD ERRNO, T30BOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
«WORD 238 
“WORD T3OBOT 
<WORD EXPREC 
40$:  CKLOOP :LOOP IF SELECTED 
RAP — C$CLP1 


MOV #1,T30WB 


FRAAAAAEAAAAARAEEAAAEEAEREREEEEARAEREREREREREEREEEEREREREEREEE 

[SKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 

PITTTITILIIL LITTLE LTT LTT TTT ite Te 
MOV #141610, T30PK3 
MOV #73 
MOV R4, TSDBCRS) TISSUE C 


SET # OF TM TO SKIP 


sSKIP TAPE MARK REVERSE .ACK,CVC=1 CMD 
SET UP_R4 WITH PACKET ADDRESS 
OMMAND 
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TEST 2: SKIP TAPE MARKS SEQ 0157 
1568 035662 004737 016330 JSR PC, WAITS :WAIT FOR SSR TO SET 
1569 035666 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 
| 4570 035672 012702 100206 MOV #SSR'SC'BIT1'BIT2,R2  :SET UP EXPECTED 

1571 035676 02010 CMP R1,R2 TARE T 

1572 035700 001406 BEQ 70$ BR, 

1573 035702 005237 002214 INC FATFLG sERROR COUNT 

1577 035706 ERRHRD ERRNO, T30IBT,PKTSSR ZTSSR INCORRECT AFTER WRITE DATA 
035706 104456 TRAP CSERHRD 
035710 00357 «WORD 239 
035712 037031 .WORD T3OIBT 
035714 012126 .WORD PKTSSR 

1578 Oseri6 70$:  CKLOOP :LOOP IF SELECTED 

a 035716 104406 TRAP  CSCLP1 

1580 FRAAAAAAAAAAREREREREREEREREREARERERERERRRERREREEEEEREREEED 

1581 : 

1382 7GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

1584 WITITITITITITITI TILL LT LTT Titi TTT Tit Tie 

1585 

1586 035720 013701 036530 MOV T30BFR+6,R1 :PICK UP xSTO 

1587 035724 01010 MOV R1,R2 iSET UP EXPECTED 

1588 035726 052702 002000 BIS #81T10,R2 :SET NEF BIT IN EXPECTED 

1589 035732 020102 CMP R1,R2 [DOES EXP = REC'D 

1590 035734 001406 BEQ 180$ 76R, IF EQUAL (OK) 

1591 035736 005237 002214 INC FATFLG sERROR COUNT 

1595 0357%¢ ERRHRD ERRNO, T30NEF ,EXPREC :TAPE NOT AT NEF 
035742 104456 TRAP CSERHRD 
035744 000360 «WORD 240 
035746 040576 -WORD T3ONEF 
035750 015554 -WORD EXPREC 

1596 035752 180$:  CKLOOP :LOOP IF SELECTED 

752 104406 TRAP  CSCLP1 

1597 035754 ENDSUB 3 €€€€KK <<< END SUBTEST >>>>>>>>>>> 
035754 L10046: 
035754 104403 TRAP  CSESUB 

1598 035756 023727 002214 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 

1599 035764 103402 BLO 999$ 7BR, IF LESS THAN 25 

1600 035766 004737 017262 JSR PC, CKDROP [TRY TO DROP THE UNIT 

1601 035772 999$: 





“4 
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1603 


C 
E 





13 
93 


SEQ 0158 


as 
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TEST 2: SKIP TAPE MARK SEQ 0159 

1605 3+ 

1606 3 

1607 sTEST 2, SUBTEST 4 

1809 ; 

1610 : VERIELES THAT A SKIP TAPE MARKS REVERSE COMMAND 

1611 ISSUED WHILE THE ~ IS POSITIONED Just BEFORE THE 

1612 tFIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE 

1613 ZSTATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 

1614 + (RIB) STATUS BIT SET. 

1615 3 

1616 3 

1617 3 

1618 3 

138 7 

1621 035772 BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
035772 72.4: 
035772 104402 TRAP C$8SUB 

1622 035774 004737 041252 JSR PC, T30REST sSET COMMAND PACKET 

1623 0 005037 036654 CLR T3OFCN ZCLEAR FILE COUNTER 

1624 036004 004737 041344 JSR PC, TSORT2 3SET UP OTHER COMMAND PACKET 

1625 036010 004737 041406 JSR PC, T30RT3 #SET UP OTHER COMMAND PACKET 

1626 036014 012737 176750 036656 MOV #68000" T30DLY SET UP DELAY COUNTER 

1627 036022 004737 016054 10$: JSR PC,SOFINIT :D0 INITIALIZE ON CONTROLLER 

1628 036026 103426 BCS 20$ ‘BR IF INIT WAS OK 

1629 036030 DELAY 250 sDELAY ROUTINE CALL 
036030 012727 000250 MOV #250, (PC)+ 
036034 000000 - WORD 
036036 013727 002116 MOV LSDOLY, (PC)+ 
036042 000000 WORD 
036044 005367 177772 DEC -6(PC) 
036050 001375 BNE ‘ 
036052 005367 177756 DEC =-22(PC) 
036056 001367 BNE -720 

1630 036060 005337 036656 DEC T30DLY ;BUMP COUNTER 

1631 036064 001356 BNE 10$ BR, IF MORE COUNT ING TO DO 

1632 036966 005237 002214 INC FATFLG sERR 

1636 036072 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 

1637 036074 ERRDF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
036074 104455 TRAP CSERDF 
036076 000361 eWORD 241 
036100 003646 -WORD SFIERR 
036102 012114 eWORD SFIMSG 

1638 036104 20$: 

1639 036104 013737 002174 036520 MOV UNITN, T30DSW SET UP UNIT NUMBER 

1°09 036112 012704 036500 MOV #T3OPACKET, RS + SUBROUT INE NEEDS PACKET ADDRESS 

Hy 93 J AAAAAAAAAAAAAAAAEAAEEAEEEAARERARAAEAREEERARRAERREREEAEEEREEE 

164 3 

ion sISSUE WRITE CHARACTERISTICS COMMAND 

1646 PTITTITITITILITILITL LLL LLL LLL LETT TT TTT TTT Tere 

1647 

1648 036116 004737 010742 JSR PC ,.WRTICHR sISSUE WRITE CHARACTERISTICS 

1649 036122 103407 BC sBR, IF COMMAND ISSUED OK 

1650 036124 005237 002214 INC FATFLG ERROR COUNT 





ad 
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1654 036130 


Sistas 


1700 
1701 036246 


TEST 2: SKIP TAPE MARK 


010001 
10445 
000363 
00505 
012114 
104406 


004737 
103411 


010004 
016501 
005237 
104456 
000363 
040240 
012126 
104406 


012737 


011074 


000002 
002214 


036530 
000002 


002214 


003116 
000400 


140005 


036622 
036626 


036620 


MOV RO,R1 :SAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
TRA CSERHRD 
; RD 242 
“WORD WRTMSG 
“WORD  SFIMSG 
23$:  CKLOOP :LOOP IF SELECTED 
TRAP  C$CLP1 
fF RAAAAAAAAAAAAAARAREAAREREAERARAARARAERERARARRARERERERRREEH 
SISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 
PITIIIITILITILL LLL TLL LEL LTTE LLLP T ELT TEE T TTT itt 
JSR PC REWIND ZCALL TAPE REWIND COMMAND 
BCS 30$ [BR, IF NO PROBL ” 
MOV RO,R4 GET PACKET ADDRESS 
MOV TSSR(RS) RI oT STATUS REGISTER 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T3ORWN,PKTSSR ;REWIND NOT ACCEPTED 
T CSERHRD 
«WORD 243 
“WORD T3ORWN 
“WORD PKTSSR 
30$:  CKLOOP :LOOP IF SELECTED 
TRAP  CS$CLP1 
FRAAAAAAAAAAAERARAAREREERERAAEARAAARAERERARERERRRERERRREREREE 
ZGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
WITITITITITI TTL LTT TLL LTT LTE T ETT TTT TTT Tite eee 
MOV T30BFR+6,R1 :PICK UP XSTO 
MOV R1,R :SET UP EXPECTED 
BIS #B1T1,R2 [SET BOT BIT IN EXPECTED 
CMP R1,R2 [DOES EXP = REC'D 
BEQ 4S 3BR, IF EQUAL (Ok) 
INC FAIFiG SERROR COUNT 
ERRHRD ERRNO, T30BOT ,EXPREC :TAPE NOT AT BOT AFTER REWIND 
TRAP  CSERHRD 
«WORD 244 
“WORD T30B0T 
<WORD EXPREC 
40$:  CKLOOP :LOOP IF SELECTED 
CSCLP1 


TRAP 
MOV FREE ,T30W8 zSET UP GOOD WRITE BUFFER 
MOV #256. ,130SZ 2SET UP SIZE 


J RARAAAAAAERAAAAEAAAAEEEEEERAEEERERERARAEREAERERREREEEREREEE 


[WRITE DATA,ACK,CVC=1 COMMAND 


° 
FEAAAAAAAAAAEAAAEAEEAEREERERAREEEAAERERARERAEREAEEEEREEEEEE 


MOV #140005, TS0PK3 sWRITE DATA,ACK,CVC=1 COMMAND 


SEQ 0160 
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TEST 2: SKIP TAPE MAR SEQ 0161 

1702 036254 012704 036620 MOV #T30PK3,R4 ZSET UP R4 WITH PACKET ADDRESS 

1703 036260 010465 000000 MOV R4, TSDB(RS) ZISSUE COMMAND 

1704 036264 004737 016330 JSR PC. WAITF :WAIT FOR SSR TO SET 

1705 036270 016501 000002 MOV TSSR(RS) RI :GET TSSR CONTENTS 

1706 036274 012702 000200 MOV #SSR,_R2 ZSET UP EXPECTED 

1707 036 020102 CMP R1,R2 TARE THEY EQUAL 

1708 036302 001406 BEQ 70$ 7BR, IF OK 

1709 036304 005237 002214 INC FATFLG sERROR COUNT 

1713 036710 : ERRHRD ERRNO, T30WDD,PKTSSR ZTSSR INCORRECT AFTER WRITE DATA 
036310 104456 TRAP  CSERHRD 
036312 000365 WORD 
036314 037170 “WORD T30wDD 

012126 -WORD PKTSSR 

1714 036320 70$:  CKLOOP :LOOP IF SELECTED 

"0 036320 104406 TRAP _ C$CLP1 

1716 FERRARA AAAARAAAEAAAEAERAAEEEERERARRAARAARRARARARRRRERRERKEREE 

1717 ; , 

1718 SSKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 

1720 : TRARAARAARARAAAAAAARARAARAAEEEERAARARARARRARARARAREKRERARERRKRARKEE 

1721 

1722 036322 012737 000001 036622 MOV 34 OF TM TO SKIP 

1723 036330 012737 141410 036620 MOV aiteig. T30PK3 ZSKIP TAPE MARK REVERSE,ACK,CVC=1 CMD 

1724 036336 012704 036620 MOV T30PK3,R 3SET UP R4 WITH PACKET ADDRESS 

1725 036342 010465 000000 MOV Ra TSDBiRS) SUE C 

1726 036346 004737 016330 JSR PC. WAITF tWAIT FOR SSR TO SET 

1727 036352 016501 000002 MOV TSSR(RS),-R1 *PICK UP 

1728 036356 012702 100204 MOV #SSR'BITO!SC,R2 :SET UP EXPECTED (SSR AND SC ONLY) 

1729 036362 020102 CMP R1,R2 :WAS STATUS GOOD 

1730 036364 001406 BEQ 1608 7BR, IF TERMINATION WAS GOOD 

1731 036 005237 002214 INC FATFLG ZER 

1735 036372 ERRHRD ERRNO, 1T301BU,PKTSSR ZTSSR NOT CORRECT AFTER WRT TAPE M. 
036372 104456 TRAP CS$ERHRD 
036374 000366 ‘ «WORD 246 
036376 036660 “WORD T3O0IBU 
036400 012126 .WORD PKTSSR 

1736 036402 160$: CKLOOP i :LOOP IF SELECTED 

aaa 036402 104406 ¢ TRAP CSCLP1 

1738 . FARA AEAAAAEAEAAREEAEEEEEAEAAREAAAAEAAERERAREREEEEREREERE 

1739 : 

1740 ZGET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 

1742 TITITITITITIIIL LTT TLL LTTE TTT TTT TTT Tee 

1743 

1744 036404 013701 036536 MOV T30BFR+14,R1 :PICK UP XST3 

1745 036410 01010¢ MOV R1,R2 [SET UP oP PECTED 

1746 036412 052702 000001 BIS #B1T0,R2 [SET RIB jolt IN EXPECTED 

1747 036416 020102 CMP R1,R2 [DOES EXP = REC'D 

1748 036420 001406 BEQ 176$ 3BR, IF EQUAL (OK) 

1749 036422 005237 002214 INC FATFLG sERROR COUNT 

1753 036426 ERRHRD ERRNO, T3ORIB, EXPREC :TAPE NOT AT RIB 
036426 104456 TRAP CSERHRD 
036430 00036 «WORD 267 
036432 036745 “WORD  T3ORIB 
036434 015554 ~WORD EXPREC 

ed pens Danae 
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1754 036436 170$: CKLOOP 
1755 036440 ENDSUB 
036440 


002214 000017 CMP FATFLG,#15. 
BLO 99 
017262 JSR PC, CKDROP 


999$: 


;LOOP IF SELECTED 
TRAP CS$CLP1 
5 MKKKKKKK END SUBTEST >>>>>>>>>>> 
L10047: 


TRAP CSESUB 
31S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


SEQ 0162 


ile — ath 
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TEST 2: SKIP TAPE MARKS SEQ 0163 
1761 
176 ;SUBTEST END 
nee - 
1765 036456 004737 016536 JSR PC, TSTLOOP :D0 WE NEED TO ITERATE TEST 
1766 036462 103002 BCC 400$ :BR, LOOP REQUIRED 
1767 036464 000137 032360 JMP T30LOOP TEXECUTE wichin 
1768 036470 400$: EXIT TST TALL DONE THIS TEST 
036470 104432 APs CSEXIT 
036472 002736 «WORD 110043-. 
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1770 

1771 

1772 

1774 

1776 036500 
1777 036500 
1778 036502 
1779 036504 
1780 0365 
1781 036510 


See 
So 
s 


NNN NSN SNS 
SUS 
So 
o 
Ww 
3 


89 

790 

792 

794 036610 
795 036610 
796 035612 
797 036614 
798 036616 
799 

803 036620 
804 036620 
805 036622 
807 O366e4 
808 036626 
809 


eee me ee mk ak ek et ek a dk ek ee ed ed ed td ad od od = ot 


©0 Go Oo Oo Oo Go Go Go Ge Go 

eh ek ak A ed ed 

OBVANR WS 
eee 
EYLSS 


TEST 2: SKIP TAPE MA 


036500 


100004 
036510 
000000 
000012 
036522 


010 


ibs 





ELOCAL STORAGE FOR THIS TEST 
2=<. +10>8177770 


— 
"GORD 100004 
«WORD TS3ODATA 
-WORD 0 
eWORD 10. 
T30DATA: 
-WORD T30BFR 
eWORD 0 
eWORD 20. 
T30ETM: .WORD 0 
T30DSW: .WORD 


0 
T30BFR: -BLKW 25. 
[WRITE SUBSYSTEM MEMORY COMMAND PACKET 


.=¢.41026177770 
T30PK2: 


° 100006 
«WORD T30BF 2 
~ WORD 
eWORD 6. 
T30PK3: 
-WORD 100205 
T30RB: 
T30WB: .WORD FREE 
eWORD O 
T30SZ: .WORD 0 
EVEN 
T30BF 2: 
T308S0: .BYTE 10 
T308S1: .BY 200 
T30S2: . 0 
T30S -WORD 0 


-EVEN 
:TAPE MOTION PACKET COMMAND VALUES 


T3OIMV: 
T3ORN: 





SEQ 0164 


COMMAND PACKET FOR TEST 
WRITE CHARACTERISTICS COMMAND, WITH , ACK 
ADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 

: CHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

re Se OF ob ge BUFFER 
TAPE MARK CONTROL 


2 SKIP 
7SELECT DRIVE 0 
MESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, AND ACK 
ADDRESS OF SELECT BLOCK DATA 


SIZE OF DATA PACKET 


REREAD COMMAND, IE AND ACK 
sADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 


sBSELO AREA 
:BSEL! AREA 

SEL 2 AREA 
DATA AREA 


sNEITHER EWB NOR ESS 
sEWB SET 
ESS SET 


;B0TH EwB TY ESS SET 
SEND OF DAT 


sTAPE TIMER COUNTER STORAGE AREA 


zTAPE TIMER COUNTER STORAGE AREA 
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TEST 2: SKIP TAPE MAR SEQ 0165 


1834 036654 000000 T3OFCN: .WORD 0 sFILE NUMBER COUNTER 
1835 036656 000000 TSODLY: .WORD 0 DELAY COUNTER STORAGE 


K 13 

TEST 1 = HARDWARE TEST - TEST MACRO M1113 25-MAY=-82 08:43 PAGE 97 

TEST 2: SKIP TAPE MARK SEQ 0166 
1837 
1838 3¢ 
i +24 ;LOCAL TEXT MESSAGES FOR TEST 
i 
1808 0366 124 123 123 T30IBU: .ASCIZ ‘TSSR Incorre ; eevee SKIP TAPE MARK REVERSE Into Bor" 
1844 03674 122 111 19¢ TSORIB: .ASCIZ ‘RIB Bit (XST3) Failed To Set After Reverse Into BOT’ 
1845 03703 124 123 123 T30IBT: .ASCIZ ‘"TSSR fh. After SKIP TAPE ann REVERSE At BOT’ 
1846 03711 124 123 123 TSOSKM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK Command’ 
1847 037170 124 123 123 T3O0WDD: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 
1848 03724 124 141 160 T3OPTB: .ASCIZ ‘Tape Not Positioned On Correct Record After READ REVERSE ° 
1849 03733 124 141 160 TSOTPB: .ASCIZ ‘Tape Not Positioned On Second File First Record® 
1850 037413 124 123 123 T3ORDF: .ASCIZ ‘TSSR Incorrect After READ FORWARD Into ‘File’ 
1851 037471 124 123 123 T3ORDG: .ASCIZ ‘TSSR Incorrect After SPACE Command Into TAPE MARK‘ 
1852 037553 124 123 123 T3SOWDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
1853 037630 111 154 154 T3OLOQ: .ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In xSTO° 
1854 037711 127 122 111 T3OSSR: .ASCIZ +uRIT  MISCELL ANEOUS Command Not Accepted’ 
1855 037762 124 123 123 T3OWDE: .ASCIZ ‘TSSR Not Correct After SKIP TAPE MARKS, At BOT’ 
1856 040041 124 141 160 T3OBOT: .ASCIZ ‘Tape Not At BOT After REWIND 
1857 0401 124 123 123 T3OTM: .ASCIZ ‘TSSR Not Correct After SPACE F ommand* 
1858 040163 124 123 123 T3OTM2: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE Command 
1859 040240 122 145 167 TS3ORWN: .ASCIZ ‘Rewind (POSITION) Command Not Acc cepted, 
1860 04030 104 162 151 T3OOFL: .ASCIZ *Drive 7 Select Failed To Set ‘OFL’ TSSR° 
1861 040362 124 123 123 T30WDC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK  caanene 
Hh +44 040441 103 126 103 T30VCK: .ASCIZ *cvC Set, Didn’*t Reset VCK In Mes ecoge fy r° 
1863 040514 124 115 113 TSOTMK: .ASCIZ ‘TMK Not Set After Rg hi nm MARK ( tH ee 
1864 040576 123 113 111 T3ONEF: .ASCIZ * SKIP TAPE MARKS, At BOT, Failed To Set gt at 
1865 040655 124 115 113 TSORRM: .ASCIZ ‘TMK Not Set rie dy READ REVERSE Into TAPE MAR 
1866 040733 124 115 113 T3ORRN: .ASCIZ ‘TMK Not Set After SPACE REVERSE Into TAPE MARK’ 
1867 041012 124 115 113. TSORRP: .ASCIZ ‘TMK Not Set After READ 4 pee Into TAPE MARK’ 
1868 041070 116 117 040 TSODTR: .ASCIZ ‘NO Data Transferred On READ FORWARD* 
1869 041134 104 141 164 TSODTA: .ASCIZ ‘Data Compare Error, Data Read From Tape Not equal To Written’ 
1870 041231 123 153 151 TST30ID: eASCIZ ‘Skip Tape Marks‘ 
1871 EVEN 
18 7 
1874 ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
+ 14 WRITE SUBSYSTEM MEMORY COMMAND 
1877 c. 
1878 
1879 041252 T3OREST: 
1880 041252 SAVREG sSAVE THE REGISTERS 
1881 041256 012701 036500 MOV At ssi &1 s START OF THE PACKET 
1882 041262 012721 100004 MOV #100004, (Ri)+ SWRITE SUBSYSTEM MEM. WITH ACK, 
1883 Bo 1eee 012721 036510 MOV #TSODATA, (R1)+ ZADDRESS OF CHARAISTICS DATA BLOCK 
1884 041272 005021 CLR (R1)+ SEXTENDED ADDRESS 
1885 041274 012721 000012 MOV #10. ,(R1)+ :SIZE OF DATA BLOCK IN BYTES 
1886 041300 012721 036522 MOV oT snore, (R1)+ TADDRESS OF MESSAGE BUFFER 
1887 041304 pO 20et CLR (R1)+ 
1888 361308 012721 000024 MOV #20.(R1)s sLENGTH OF MESSAGE BUFFER 
1889 041312 005021 CLR 
1890 041314 012711 000000 MOV i, a SELECT eats ZERO 
1891 041320 31670 000030 MOV #24. Re : NUMBER oye; TO - gr LEARED 
189, Ooi ses 012762 177777 036522 64$: MOV #177777, T30BFR(R2) TONES TO MESSAGE BUFFE 
1893 041332 00574 TST -(R2) NEXT LOCATION 
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TEST 2: SKIP TAPE MA 
022702 000000 
001371 


$2 4 
ERR y 
Ee 


1 
1 
1896 04 
1897 
1898 
1899 041344 
1900 041344 
1901 041350 
1306 041354 
1903 041360 
1904 041364 
1905 041366 
1906 041372 
1907 041374 
1908 041400 
1909 041402 
1910 041404 
1911 041406 
1912 041406 
1913 041412 
1914 041416 
1915 041420 
1916 041422 
1917 041424 
1918 041426 
1919 041430 
041430 
041430 








036610 
100006 
036630 
000006 
036630 


036620 


T3ORT2: 


T30RT3: 


CMP 


ENDTST 





#0. oR2 
64$ 
PC 


#T30PK2,R1 
#100006, (R1)+ 
oi er ee o(R1)+ 


Th (R1)+ 
aT30BF2.R1 
(R1)+ 

(R1) 

PC 
#T30PK3,R1 
(R1)+ 
(R1)+ 
(R1)+ 


(R1) 
PC 


SEQ 0167 


CHECK _R2 FOR DONE 
:KEEP_ GOING UNTIL DONE 


3 SAVE _THE Tia Pater 

START OF THE PACKET 

sWRITE SUBSY STEM MEM. WITH ACK, 
ADDRESS y' DATA BLOCK 

EXTENDED ADDRESS 

3SIZE OF DATA BLOCK IN BYTES 


POINT TO DATA SEL AREA 


:RETURN 


+ SAVE REGISTERS 
3SET UP eoare ADDRESS 


[COMMAND S$ 

ADDRESS OF care BLOCK 

oh ar ADDRESS 

SIZE 0 F DATA. TRANSFER BLOCK 
; RETURN 


L10043: 
TRAP CSETST 





Mm 13 


veer 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY~82 08:43 PAGE E 98 


RERESE BAS 


944 
945 
946 





006354 002172 
6543 


016570 
p09002 002210 


: NO-OP ("CLEAN TAPE*') AND INITIALIZE SEQ 0168 


«SBTTL TEST 3: NO-OP (‘'CLEAN TAPE’') AND INITIALIZE 


STHIS TEST VERIFIES PROPER OPERATION OF Ly NO-OP (‘CLEAN TAPE*') AND INITIALIZE 
; COMMAND (SPACE REVERSE, ERASE, WRITE DATA 


THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 


BGNTST ie 
MOV #EPRT1,EPRTSW :PRIMARY ERROR MESSAGE 

MOV #TST311D,RO SASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 

MOV #5. LOOPCNT ZPERFORM 5 ITERATIONS 

CLR T3iCNT ZCLEAR TAPE RECORD COUNTER 


T31LOOP: 
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NO-OP ("CLEAN TAPE’) AND INITIALIZE . SEQ 0169 

1948 3+ 

1949 : 

1239 :TEST 3, SUBTEST 1 

1952 3 VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 

1953 3 COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 

1954 : STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 

1955 3 INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 

1956 $ WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 

1957 3 AND THE NO-OP oy Is toasty IT IS VERIFIED THAT THE TAPE 

1958 3 IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 

1959 : RECORD ON TAPE IS READ ANDY VERIFIED (TO CHECK TAPE POSITION AND 

1960 3 VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 

+d ; ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 

1963 3 

1964 3 

1965 3 

1966 3 

iH} ; 

1969 041462 BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041462 T3.1: 
041462 104402 TRAP C$BSUB 

1970 041464 004737 046610 JSR PC, T31REST sSET COMMAND PACKET 

1971 041470 004737 046702 JSR PC, T31RT2 :SET UP OTHER COMMAND PACKET 

1972 041474 004737 046744 JSR PC, T31RT3S ;SET UP OTHER COMMAND PACKET 

1973 041500 012737 176750 043342 MOV #65000. , T31DLY ‘SET UP DELAY COUNTER 

1974 041506 004737 016054 10$: JSR PC,SOFINIT :D0 og ON CONTROLLER 

1975 041512 103426 BCS 20$ R IF INIT OK 

1976 041514 DELAY 250 ‘BELAY ABOUT” M35 SEC 
041514 012727 000250 MOV #250, (PC)+ 
041520 000000 -WORD 0 
041522 013727 002116 MOV LSOLY,(PC)+ 
041526 000000 WORD 
041530 005367 177772 DEC -6(PC) 
041534 001375 BNE 74 
041536 005367 177756 DEC -22(PC) 
041542 001367 BNE 720 

1977 041544 005337 043342 DEC T31DLY ;BUMP COUNTER 

1978 041550 001356 BNE 10$ 7BR, IF COUNTER NOT DONE 

1979 041552 005237 002214 INC FATFLG sERROR COUNT 

1983 041556 010001 MOV RO,R1 sCONTENTS OF TSSR REGISTER 

1984 041560 ERRDF ERRNO, SF IERR, SF IMSG sFATAL ERROR TSSR WAS NOT OK 
041560 104455 TRAP CSERDF 
041562 000455 -WORD 301 
041564 003646 eWORD SFIERR 
041566 012114 -WORD SFIMSG 

1985 041570 013737 002174 043210 208: MOV UNITN, T31DSW 3SET UP UNIT NUMBER IN PACKET 

1986 041576 012704 043170 MOV #T31PACKET, RG + SUBROUT INE NEEDS PACKET ADDRESS 

1987 041602 004737 010742 JSR PC,WRICHR ZISSUE WRITE CHARACTERISTICS 

1988 041606 103407 BCS 23§ :BR, IF COMMAND ISSUE 

1989 041610 005237 002214 INC FATFLG sERROR 

1993 041614 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 

1994 041616 ERRHRD ERRNO,WRTMSG,SFIMSG *WRITE CHARACTERISTISC FAILED 
041616 104456 TRAP CSERHRD 
041620 000456 -WORD 302 
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3: NO-OP (CLEAN TAPE’’) AND INITIALIZE SEQ 0170 SCF 
041622 006505 .WORD WRTMSG 
041624 012114 -WORD SFIMSG 

1995 041626 23$:  CKLOOP :LOOP IF SELECTED | 
041626 1044 TRAP  C$CLP1 | 
1996 041630 004737 011074 JSR PC REWIND CALL TAPE REWIND COMMAND | 
199/ 041634 103407 BCS 308 R LEM | 
1998 041636 010004 MOV 0,R4 SET i REWIND PACKET ADDRESS 
1999 041640 005237 002214 INC FATFLG zERROR COUNT 
2003 041644 ERRHRD ERRNO, T3IRWN,PKTSSR sREWIND NOT ACCEPTED } 
041644 104456 AP  —s- CSERHRD | 
041646 000457 «WORD 303 
041650 044674 “WORD T31RWN 
041652 012126 “WORD  PKTSSR 
2004 041654 30$:  CKLOOP sLOOP IF SELECTED | 
041654 104406 TRAP _— C$CLP1 | 
2005 041656 013701 043220 MOV T31BER+6, R1 :PICK UP XSTO | 
2006 041662 010102 MOV R1.R ZSET UP EXPECTED 
2007 041664 052702 000002 BIS weit. R2 [SET BOT pelt IN EXPECTED 
2008 041670 020102 CMP R1,R2- ZDOES EXP = REC'D 
2009 041672 601406 BEQ 408 :BR, IF EQUAL (OK) | 
2010 041674 005237 002214 INf TFLG sERROR COUNT | 
2014 041700 ERRHRD ERRND  T31BOT EXPREC ;TAPE NOT AT BOT AFTER REWIND | 
041700 104456 TRAP  CSERHRD 
041702 000460 «WORD 304 ) 
041706 044345 “WORD 13180T | 
041706 015554 <WORD EXPREC 
2015 041710 40$:  CKLOOP :LOOP IF SELECTED 
041710 104406 RAP  — CSCLP1 | 
2016 041712 013737 003116 043312 MOV FREE ZSTARTING WRITE BUFFER ADDRESS | 
2017 041720 012737 140005 043310 65$: MOV #1606083, T31PK3 [WRITE DATA,CVC=1,ACK COMMAND 
2018 041726 012704 043310 MOV aT31P SSET UP R4 WITH PACKET ADDRESS 
2019 041732 012700 000144 MOV 100 “RO” sSET PATTZRN IN CORRECT REGISTER 
2020 041736 737 017502 JSR PC, FILLMEM ;FILL MEMORY WITH RECORD SIZE 
2021 041742 012737 000144 043316 MOV #100. 1312 [SET UP RECORD SIZE IN PACKET 
2028 041750 loses MOV R4, TSOB(RS) : COMMAND 
2023 041754 737 016330 JSR PC. WAITF [WAIT FOR SSR TO SET 
2024 041760 016501 MOV TSéRCES) RI [GET TSSR CONTENTS 
2025 041764 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
2026 041770 020102 CMP R1,R2 SARE THEY 
2027 041772 001406 BEQ 80$ 7BR, 
2028 041774 005237 002214 INC FATFLG sERROR COUNT 
042000 ERRHRD ERRNO, 1T31WOC,PKTSSR ZTSSR INCORRECT AFTER WRITE DATA 
042000 104456 TRAP  CSERHRD 
042002 61 «WORD 305 
042004 0452 “WORD T31wOC 
042006 012126 “WORD PKTSSR 
2033 042010 80$:  CKLOOP ;LOOP IF SELECTED 
042010 1044 TRAP  C$CLP1 
2034 042012 004737 011074 JSR PC REWIND :CALL TAPE REWIND COMMAND 
2035 042016 103407 BCS 236s IF NO PROBLEM 
2036 042020 010001 MOV RO,R1 iSAVE TSSR 
2037 042022 005237 002214 INC FATFLG sERROR C 
2041 042026 ERRHRD ERRNO, T31RWN,EXPREC zREWIND NOT ACCEPTED 
042026 104456 TRAP  CSERHRD 
0420 62 «WORD 306 
042032 044674 <WORD T31RWN 
34 015554 -WORD EXPREC 
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2042 042036 
2036 


2067 042142 
04 


2080 042210 


iN IN 
RNARINAS 


SepeeeReee 
SSRIS 


RRRRRRRRRKK 


0004 
044345 


000464 
043543 
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043220 
000002 


002214 


043310 


2308: 


2408: 
265$: 


280$: 


CKLOOP 


TSIBER+G RI 
#BIT1,R2 

R1,R2 

240$ 

FATFLG 

ERRNO, T31B0T ,EXPREC 


etal ada 
#T31PK3,R 


R3, 1318 
RG. SDB (RS) 
PC,WA 
rsémche), R1 
#SSR,R2 
R1.R2 
280$ 
FATFLG 
ERRNO, T31RDF .PKTSSR 


TSIBER+6,R1 
#BiT1,R2 
R1,R2 


FATFLG 
ERRNO, T31B0T ,EXPREC 


o130001. szWKS 


FATFLG 
ERRNO, T31RDE ,PKTSSR 


SEQ 0171 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
[SET UP EXPECTED 
[SET BOT ay IN cureCtED 
[DOES EXP = REC'D 
:8R, IF EQUAL (OK) 
ERROR COUNT 
ZTAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 307 
~ WORD T31B0T 
«WORD EXPREC 
s;LOOP IF SELECTED 
TRAP CSCLP1 
3sNO-OP,CVC=1 COMMAND 
SET uP R4 WITH PACKET ADDRESS 
[SET UP RECORD SIZE IN PACKET 
Zs ISSUE COMMAND 
[WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
SSET UP EXPECTED 
sARE T 
sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
RAP CSERHRD 
-WORD 308 
eWORD T31RDF 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
PICK UP xSTO 
#SET UP P eX XPECTED 
sSET BOT BIT IN EMPECTES 
OES EYP = REC'D 
‘BR. IF EQUAL (OK) 
ERROR COUNT 
:TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 309 
-WORD 131B0T 
eWORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


READ ACK CVC=1 COMMAND 
ET UP R& WITH PACKET ADDRESS 
fl ip RECORD SIZE IN PACKET 


C 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
sARE THEY EQUAL 


ERROR COUNT 
ZTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 


SS eres a le se NT te 





ere 
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NO=OP (""CLEAN TAPE'') AND INITIALIZE SEQ 0172 
042262 000466 «WORD 310 
042264 0463344 ~ WORD T31RDE 
042266 012126 ~«WORD PKTSSR 

2094 of 44 290$: CKLOOP ;LOOP IF SELECTED 
042270 104406 TRAP CSCLP1 

2095 $ 72 017701 140620 MOV @FREE,R1 3GET DATA READ 

2096 042276 012702 000144 MOV #100. ,R2 ;READ EXPECTED 

2097 042302 020102 CMP R1,R2 ;DID TAPE STAY POSITIONED 

2098 042304 001406 BEQ sBR, IF EXPD = RECD 

2099 pose0s 005237 002214 INC FATFLG sERROR COUNT 

2103 04231 ERRHRD ERRNO, T31WNG,EXPREC ; TAPE DATA NOT CORRECT 
042312 104456 TRAP CSERHRD 
042314 000467 «WORD 311 
042316 043471 «WORD T31WNG 
042320 015554 «WORD EXPREC 

2104 042322 330$: 

2105 0O5355 ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
04232 L10051: 
042322 104403 TRAP CSESUB 

2106 042324 023727 002214 000017 CMP FATFLG,#15. :1S ERROR COUNT AT 25 

2107 042332 103402 BLO 999$ BR, IF LESS THAN 25 

2108 042334 004737 017262 JSR PC, CKDROP ;TRY TO DROP THE UNIT 

2109 042340 999$: 
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3: 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 042340 
042340 
042340 
2125 042342 
2126 042346 
2127 042352 
2128 042356 
2129 042362 
2130 042364 
2134 042370 
2135 042372 
042372 
042374 
042376 
042400 
2136 042402 
2137 042410 
2138 042414 
2139 042420 
2140 042422 
2144 042426 
2145 042430 
042430 
042432 
042434 
042436 
2146 042440 
40 
2 442 


462 
464 
2155 042466 
466 


gogis 
043170 
010742 


002214 


011074 


002214 


043220 
000002 


NO-OP (""CLEAN TAPE'’) AND INITIALIZE 


STEST 3, SUBTEST 2 


043210 208: 


238: 


30$: 


SEQ 0173 


VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
oye NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 


ALREA 


DY HAVE BEEN DETECTED IN PREVIOUS TES a 


THE TEST 


SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1 


PC, Tainest 
PC, T2 


PC, Ls 
PC,SOFINIT 
208 


FATFLG 
RO,R1 
ERRNO, SFIERR, SF IMSG 


UNITN,T31DSW 
#TSIPACKET ,R4 
PC ,WRICHR 


2 

FATFLG 

RO,R1 

ERRNO ,,WRTMSG, SF IMSG 


PC REWIND 
308 


FATFLG 
ERRNO, T31RWN, PKTSSR 


T31BFR+6,R1 
#BiT1,R2 
R1.R2 

408 


j>>>>>>>>>>>> meat. aii >>>>>>>>>>>> 


TRAP C$B8SUB 
SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
:D0 INITIALIZE ON CONTROLLER 
IF INIT WAS OK 


sERROR COUNT 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 


SET UP UNIT NUMBER IN 

SUBROUTINE NEEDS PACKET TADDRESS 

2 ISSUE WRITE CHARACTERISTICS 
COMMAND ISSUED Ok 


:BR, IF 
ae 


;ERROR 
;SAVE CONTENTS OF TSSR 


s WRITE CHARACTERISTIC FAILED 
TRAP 


CSERHRD 
«WORD 313 
-WORD WRTMSG 
-WORD SFIMSG 
:LOOP IF SELECTED 
TRAP CSCLP1 
CALL TAPE REWIND COMMAND 
F NO PROBLEM 
‘SET UP REWIND PACKET ADDRESS 
ERROR COUNT 
;REWIND NOT ACCEPTED 
CSERHRD 
«WORD 314 
-WORD T3IRWN 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK JP xsTO 
SET UP EXPECTED 
SET BOT got IN EXPECTED 
DOES EXP = REC'D 


:BR, IF EQUAL (OK) 


—t 





rest ~ ae TEST 


NO-OP ( 


ror 

a 

ao 

we 

REL ; 
EE 


ooo 
== 
y 

S 


nm 
= 


ABSVSARANISSSS F 


FRRRLLRK 
IN 


RRRRRRRELLF 
S 
So 


MIPIPIPIPINININIPSNPoPoNorfg 


kd tk at od td 
MN 
S935 


RoMonanonononononononononony 


“CLEAN 
005237 


Sane 

a 

Nereue 
OWOAWW 
Nuns 


oo 
== 
So 
im 


020102 
001406 


0004 
044674 
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TAPE’*) AND 
002214 


11 


2S 

Ww 
Sus 

SOounw 


011074 


002214 


043220 
000002 


002214 


AND INITIALIZE 


80$: 


230$: 


2408: 
043310 265$: 


INC 
ERRHRD 


FATFLG 
ERRNO, 131B0T ,EXPREC 


FREE, 131WB 
#140005, 131PK3 
ar31P K3.R 


aR 
+4) FILLMEM 
#100. ,131S2 
RG, VebcRss 
PC WAITF 
TSSR(RS) RI 
#SSR,R2 


yee 


FATFLG 
ERRNO, T31WDC ,PKTSSR 


PC REWIND 
236s 


RO,R1 
FATFLG 
ERRNO, T31RWN,EXPREC 


Larerers. oR1 
#BiT1,R2 
R1,R2- 


FATFLG 
ERRNO, T31B0T ,EXPREC 


#04101 
#131PK 

aS 13th 
R4. TSDB(RS) 

PC: WAITF 


ofpwes 


SEQ 0174 
sERROR COUNT 

ZTAPE NOT AT BOT AFTER REWIND 

TRAP  CSERHRD 

-WORD 315 

“WORD 131B0T 

.WORD EXPREC 
:LOOP IF SELECTED 

CSCLP1 


TRAP 
s STARTING WRITE BUFFER ADDRESS 
K pte 


T ADDRESS 
SET PATTERN IN. “CORRECT REGISTER 
FILL MEMORY W UIT RECORD SIZE 
3SET y comme SIZE IN PACKET 


21SS OMMAND 

WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
2SET UP EXPECTED 


zsERROR COUNT 
sTSSR INCORRECT AFTER ae Fae 


CSERHRD 
WORD 316 
WORD T31WDC 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
3CALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 
sSAVE TSSR 
ERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP CSERHRD 
WORD 317 
-WORD T3IRWN 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xsTO 
2SET uP EXPECTED 
3SET BOT BT IN EXPECTED 
DOES EXP = REC‘D 
TBR, IF EQUAL (OK) 
ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 318 
eWORD 131B0T 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CS$C!P1 


2 INITIALIZE ,.CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
SET UP RECORD SIZE IN PACKET 
a SUE COMMAND 

WAIT FOR SSR TO SET 


MeN <eSnnnceSeSnSENNSNESSE 
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T 3: NO-OP (“CLEAN TAPE’) AND INITIALIZE SEQ 0175 

2210 042734 016501 000002 MOV TSSR(RS),R1 :GET TSSR CONTENTS 

2211 042740 012702 000200 MOV #SSR,R2 SET UP EXPECTED 

2212 042744 020102 CMP R1,Re SARE THEY EQUAL 

2213 042746 001406 BEQ 286$ 7BR, IF OK 

2214 042750 005237 002214 INC FATFLG sERROR COUNT 

2218 042754 ERRHRD ERRNO, T31RDF,PKTSSR ZTSSR INCORRECT AFTER READ DATA 
042754 104456 TRAP CSERHRD 
042756 000477 .WORD 319 
042760 043543 _ (WORD T31RDF 
042762 012126 “WORD PKTSSR 

2219 042764 280$:  CKLOOP :LOOP IF SELECTED 

764 104406 TRAP  C$CLP1 

2220 042766 013701 043220 MOV T31BER+6, R1 :PICK UP XSTO 

2221 042772 010102 MOV R1,R2 :SET UP ot XPECTED 

2222 042774 052702 000002 BIS #BIT1,R2 :SET BOT BIT IN EXPECTED 

2223 043000 020i02 CMP R1,R2_ :DOES EXP = REC'D 

2224 043002 001406 BEQ 285$ :BR, IF EQUAL (OK) 

2225 043004 005237 002214 INC FATFLG sERROR COUNT 

2229 043010 ERRHRD ERRNO,131B0T, EXPREC :TAPE NOT AT BOT AFTER REWIND 
043010 104456 TRAP  CSERHRD 
043012 000500 .WORD 320 
043014 044345 “WORD T31B0T 
043016 015554 <WORD EXPREC 

2230 043020 285$:  CKLOOP :LOOP IF SELECTED F 
043020 104406 TRAP — CSCLPi 

2231 043022 012737 140001 043310 MOV #140001, 131PK3 READ, ACK CVC=1 COMMAND 

2232 043030 012704 043310 MOV #T31PK3_RG SSET UP R& WITH PACKET ADDRESS 

2233 043034 012737 000144 043316 MOV W100, 18182 ZSET a RECORD SIZE IN PACKET 

2234 043042 010465 000000 MOV R4, TSDB(R Z ISSUE COMMAND 

2235 043046 004737 016330 JSR PC.WAITF :WAIT FOR SSR TO SET 

2236 043052 016501 000002 MOV TSSR(RS),R1 ‘GET TSSR CONTENTS 

2237 043056 012702 000200 MOV #SSR_R2 [SET UP EXPECTED 

2238 043062 020102 CMP R1,R2 SARE THEY 

2239 043064 001406 BEQ 290$ :BR, IF OK 

2240 043066 005237 002214 INC FATFLG sERROR COUNT 

2244 043072 ERRHRD ERRNO, T31RDE,PKTSSR ZTSSR INCORRECT AFTER READ DATA 
043072 104456 TRAP  CSERHRD 
043074 000501 «WORD 321 
043076 043344 eWORD T3IRDE 
043100 012126 “WORD PKTSSR 

2245 043102 290$:  CKLOOP :LOOP IF SELECTED 
043102 104406 TRAP — CS$CLP1 

2246 043104 017701 140006 MOV aFREE,R1 :GET DATA READ 

2247 043110 012702 000144 MOV #100. .R2 READ EXPECTED 

2248 043114 020102 CMP R1,R2 DID TAPE STAY POSITIONED 

2249 043116 001406 BEQ 336$ ‘BR, IF EXPD = RECD 

2250 043120 005237 002214 INC FATFLG SERROR COUNT 

2254 043124 ERRHRD ERRNO, 131WNH,EXPREC ZTAPE POSITION NOT CORRECT AFTER INIT 
043124 104456 TRAP — CSERHR 
043126 000502 WORD 
043130 043410 “WORD T31WNH 
043132 015554 -WORD EXPREC 

2255 043134 330$: 

2256 043134 ENDSU8 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
eter 104403 ears TRAP  CSESUB 

2257 043136 023727 


002214 000017 CMP FATFLG,#15. 21S ERROR COUNT AT 25 
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999$ 
PC, CKDROP 


PC, TSTLOOP 
163$ 
T31L00P 
TST 





sBR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


:D0 WE NEED TO ITERATE TEST 
IF NO LOOP REQUIRED 


TEXECUT e“A AGAIN 
ALL DONE THIS TEST 


TEST 1 = 
TEST 3: 


2286 043212 


2308 


3 


WWWWWWWAIA 
me ek ak td td ot td et 
WONAOULWN—O 


SRSRSENNS 
Ries 
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HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 
NO-OP ("CLEAN TAPE’') AND INITIALIZE 


ae 


see 


E 


ai Be 


100205 
100605 
102205 
177777 
000000 


000000 
000000 


14 
101 


3+ 
sLOCAL STORAGE FOR THIS TEST 


T31PACKET: 
: 100004 
.WORD T31DATA 
.WORD 0 
.WORD 10. 
T31DATA: 
.WORD T31BFR 
.WORD 0 
.WORD 20. 
.WORD 0 
T31DSW: .WORD 0 
T31BFR: .BLKW 25. 


WRITE SUBSYSTEM MEMORY COMMAND PACKET 
o=<.+10>8177770 


-WORD 100006 
WORD T31BF2 - 
-WORD 0 

WORD 6. 


T31PK2: 


.WORD 100005 
T31WB: .WORD FREE 

“WORD 0° 
131SZ: WORD 0 


-EVEN 
T31BF2 
T318S0: .BYTE 10 
T31B8S1: .BYTE 200 
T3186 WORD 0 
T31S - WORD 


- EVEN 
3TAPE MOTION PACKET COMMAND VALUES 


T31RN: .WORD 100205 
T31WDR: .WORD 100605 
T31CON: .WORD 102205 
WORD 177777 
T31CNT: .WORD 0 
T31CNU: .WORD 0 
TSIDLY: .WORD 0 


SEQ 0177 


COMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
sADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 

: CHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


SELECT DRIVE 0 
sMESSAGE BUFFER 


WRITE SUB SYS MEM COMMAND, AND ACK 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


ZREREAD DATA (NEXT) 

ZREREAD DATA RETRY 

sWRITE CONTINOUS 

sEND OF DATA 

| TIMER COUNTER STORAGE AREA 
3s TAP 


TIMER COUNTER STORAGE AREA 
sDELAY COUNTER 
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3 
3+ 
2335 sLOCAL TEXT MESSAGES FOR TEST 
2336 3° 
2337 
3335 
2340 043344 124 123 123 T3IRDE: .ASCIZ ‘TSSR Not Correct After READ Command’ 
2341 043410 124 141 160 TSIWNH: .ASCIZ ‘Tape Position Incorrect After INITIAI.IZE Command’ 
sere 043471 124 141 160 TSIWNG: .ASCIZ ‘Tape Position Incorrect After NOP Command‘ 
2343 043543 124 123 123 TSIRDF: .ASCIZ ‘TSSR Incorrect After READ DATA Command‘ 
2344 043612 122 105 I$ T3IRRF: .ASCiZ My Previous (Space Reverse. Reed Forward) Command Failed’ 
2345 043707 120 117 123 T31SC: .ASCIZ TION (Space Command) Failed, TSSR Not Correct 
2346 043771 122 111 10¢ T31LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
2347 044041 124 123 125 T3IWDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set 
2348 044116 111 154 154 1L0Q: .ASCIZ ‘Illegal Mode Bits, Failed LS Set ILC Bit In t STO" 
2349 044177 122 105 128 T31SSR: .ASCIZ ‘REREAD COMMAND Not Accept 
2350 044233 124 123 123 T3IWDE: .ASCIZ ‘TSSR ae correct After ted. ("CLEAN nn f *) AND INITIALIZE Command, At BOT’ | 
2351 044345 124 141 160 T31IBOT: .ASCIZ *Tape No At BOT After REWIND Command (BOT Not Set In xSTO)' 
2352 044440 116 117 O55 TSITIM: .ASCIZ ¢ CLEAN TAPE’*) AND INITIALIZE’'S Erase Tape Not Long Enough’* | 
2353 044540 122 105 122 T3IEOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT® 
2354 044617 124 123 123 T31TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
2355 044674 122 145 167 T3IRWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
2356 044743 122 101 115 EL ae eASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ 
2357 045016 124 123 123 1AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND’ 
2358 045065 104 162 151 TSIOFL: .ASCIZ ‘Drive 7 Select Failed To Set ‘OFL’’ In TSSR° i 
2359 045140 124 123 123 1WDD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
2360 045230 124 123 123 T31WDC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
2361 045303 103 126 103 TSIVCK: .ASCIZ ‘CVC Set, Didn**t Reset VCX In Reese Buf fer’ 
$306 045356 124 123 102 T31IBA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
2363 045431 127 122 111 T31WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)‘ 
2364 045520 122 145 141 T3IL eASCIZ ‘Reading Long Record Failed To Set RLL Bit In xsTO° 
2365 045602 122 145 141 T3ILOP: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In xSTO' | 
2366 045664 122 145 163 131 $C1Z *Residual Byte Count Incorrect After short Record Read‘ 
2367 045752 122 145 141 T3ITRL: .ASCIZ Rr ty | pong Record, Failed To Give Tape Status Alert’ 
2368 046040 116 117 055 T3INEF: .ASCIZ *) AND IN YRS At. First Record, Failed To Set RIB Bit: 
2369 046161 124 123 123 TSISCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 
2370 046236 124 123 123 T3ITSA: .ASCIZ ‘TSSR Not Correct After NO-OP (’"CLEAN TAPE’ ) - INITIALIZE. Into BOT’ 
sir teeace 1814] HE Talons “AREHE spatt Sige gota uy ttget chem trae? MOINS Cemen 
B« ata Compare rror, Data From Ta t o Written’ 
2373 046543 116 117 055 TST31ID: eASCIZ ‘NO-OP (‘Clean Tape’? And INITIAL IZE® ay 
2374 EVEN 
He ’ 
2377 {ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
3378 WRITE SUBSYSTEM MEMORY COMMAND 
33a i 
$3es peeelo ifm :SAVE THE REGISTERS | 
2384 046614 012701 043170 MOV #T31PACKET,R1 SSTART OF THE PACKET 
2385 046620 012721 100004 MOV mr StoAth (Ri)+ [WRITE SUBS SYSTER MEM. WITH ACK, 
2386 ore} 012721 043200 MOV #T31DATA, (R1)+ TADDRESS OF CHARAISTICS DATA BLOCK 
$i SS BEF ooo wi SE oat cx on eve 
2389 046636 012721 SAE: MOV wi Faye ZADDRESS OF MESSAGE BUFFER 
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NO-OP ( 


2590 046642 
2390 dceeso 


9 
304 04665: 
95 Beste 


2401 

2402 046702 
2403 046702 
2404 046706 
2405 046712 
2406 046716 
2407 046722 
2408 046724 


2409 046730 
2410 046732 
2 36 


2422 046766 
766 
046766 


geseces 
=—nvironnuw 
™ 
oO 
N 


000024 


000000 
000030 
177777 


043310 


) AND INITIALIZE 


043212 64$: 


T3IRT2: 


T31RT3: 


R 
ENDTST 


+ 
420,281) 
m0, (RI) 
rite, T31BFR(R2) 
ron @ 


64$ 
PC 


#T31PK2,R1 
#100006, (R1)+ 
#T31BF2,(R1)+ 
(R1)+ 


#6.,(R1)+ 
+ 
#T31BF2,R1 

(R1)+ 

(R1) 

PC 
#T31PK3,R1 
(R1)+ 
(R1)+ 
(R1)+ 


(R1) 
PC 





sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 
NUMBER OF LOCATIONS TO . ,newee 
ZALL_ONES i MESSAGE BUFF 
rt LOCATION 
T END OF LOOP YET 
SREP GOING UNTIL DONE 
RETURN 


3 SAVE — re bates 
3 START THE 


PACKET 
sWRITE SUBSVSTER MEM. WITH ACK, 
ADDRESS " DATA BLOCK 
EXTENDED ADDRESS 

SIZE OF DATA BLOCK IN BYTES 


sPOINT TO DATA SEL AREA 


3RETURN 


sSAVE REGISTERS 
SET UP oot ADDRESS 


COMMAND SP. 

ADDRESS ay! abana BLOCK 
ae Ss 

:SIZE 0 F DATA. TRANSFER BLOCK 

3RETURN 


110050: 


TRAP CSETST 


SEQ 0179 


L 14 


TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 104 


TEST 4: ERASE AND OPERATION INCOMPLETE 


82 
2483 047020 





006354 002172 
052640 


016570 
000005 002210 
051510 


-SBTTL TEST 4: Erase And Operation Incomplete 


+ 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 


1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 


2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 


3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0). 


A READ REVERSE COMMAND IS ISSUED. iy IS 1 ~ hy ~ THAT 
THE COMMAND TERMINATES WITH TAPE STATUS — HAT THE 
REVERSE INTO BOT (RIB) STATUS BIT IS SET, 

DATA _IS TRANSFERRED. THIS DEMONSTRATES tHAT NO DATA 
a ENCOUNTERED IN THE AREA ERASED BY THE ERASE 


THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 


Be Se Fe Ge Se Be Ge Ge Be Se Be Ge Ge Ge Ge Ge Ge Be Se Ge Se Se Be Se Se Se Be Be Se Se Se Se Se Se 
‘ 

&- 

a 


BGNTST 
MOV #EPRT1,EPRTSW ZPRIMARY ERROR MESSAGE 

MOV #TST321D DRO ZASCII MESSAGE TO IDENTIFY TEST 
JSR PC, rst SETUP :DO INITIAL T se TUP 

MOV OOPCNT [PERFORM 5 I TERAT ONS 

CLR "3 35te CLEAR TAPE RECORD COUNTER 


+ 


;TEST 4, SUBTEST 1 


:VERIF IES THAT A Erase And Operation Inc Lete COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
STERN 1, WITH THE NON-EXECUTABLE FUNCTION (NEF) 


T32L00P: 


SEQ 0180 
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TEST 4: ERASE AND OPERATION INCOMPLETE SEQ 0181 
2485 : 
Stes 
2488 067020 BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
047020 104402 TRAP  C$BSUB 
2489 047022 004737 052700 JSR PC, T32REST :SET COMMAND PACK 
2490 047026 004737 052772 JSR PC. T3ORT [SET UP OTHER COMMAND PACKET 
2491 047032 004737 053022 JSR PC. T3ORT :SET UP OT HER COMMAND PACKET 
2492 047036 012737 176750 051514 MOV #65000. ,T32DLY [SET UP DELAY COUNTER 
2493 047044 004737 016054 10$: JSR PC,SOFINIT ‘DO INITIALIZE oN CONTROLLER 
2494 047050 103426 BCS 20$ ‘BR IF INIT WAS OK 
2495 047052 DELAY 250 DELAY ABOUT” M5 SEC 
047052 012727 000250 MOV #250, (PC)+ | 
047056 000000 «WORD 0 | 
047060 013727 002116 MOV LSDLY, (PC)+ | 
047064 WORD 
7066 005367 177772 DEC -6(PC) 
047072 001375 BNE 4 ! 
047074 005367 177756 DEC =22(PC) | 
047100 001367 BNE .-20 | 
2496 047102 005337 051514 DEC T32DLY :BUMP COUNTER 
2497 047106 001356 BNE 10$ BR, IF COUNTER NOT DONE | 
2498 047110 005237 002214 INC FATFLG sERROR COUNT 
2502 047114 010001 MOV RO,R1 ICONTENTS OF TSSR REGISTER 
2503 047116 ERRDF ERRNO, SFIERR,SFIMSG [FATAL ERROR TSSR WAS NOT OK 
047116 104455 TRAP  CSERDF 
047120 000621 «WORD 401 | 
047122 003646 “WORD SFIERR | 
047124 012114 “WORD SFIMSG | 
2504 047126 013737 002174 051350 20$: MoV UNITN, T32DSW :SET UP DRIVE NUMBER 
2505 047134 012704 051330 MOV AT32PACKET,RG [SUBROUTINE NEEDS PACKET ADDRESS 
2506 047140 004737 010742 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
2507 047144 103407 BCS 25$ :BR, IF COMMAND ISSUED OK 
2508 047146 005237 002214 INC __ FATFLG ERROR 
2512 047152 010001 MOV RO,R1 : SAVE CONTENTS OF TSSR 
2513 047154 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE CHARACTERISTISC FAILED 
047154 104456 TRAP §CSERHRD 
047156 000622 WORD 402 
047160 005052 “WORD ° WRTMSG 
047162 012114 “WORD SFIMSG 
2514 047164 25$:  CKLOOP :LOOP IF SELECTED | 
047164 104406 TRAP  C$CLP1 | 
2515 047166 004737 011074 JSR PC REWIND ZCALL TAPE REWIND COMMAND 
2516 047172 103411 BCS 26$ BR, IF OBLEM 
2517 047174 010004 MOV RO,R4 [SET UP REWIND PACKET ADDRESS 
2518 047176 016501 000002 MOV TSSR(RS) RI GET TSSR_CONTENTS | 
2519 047202 005237 002214 INC FATFLG T 
2523 047206 ERRHRD ERRNO, T32RWN,PKTSSR SREWIND WOT ACCEPTED 
047206 10445 TRAP CSERHRD 
047210 00062 «WORD 403 
047212 051700 <WORD TS32RWN 
047214 012126 “WORD PKTSSR 
2526 047216 26$:  CKLOOP :LOOP IF SELECTED 
047216 104406 TRAP — CS$CLP1 
2525 047220 012703 000400 MOV #256. .R3 ZSTARTING RECORD SIZE 
2526 047224 013737 003116 051452 MOV FREE, 132WB SSTARTING WRITE BUFFER ADDRESS 
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2527 047232 012737 140005 051450 MOV #140005, T32PK3 :WRITE DATA,CVC=1,ACK COMMAND 

2528 047240 012704 051450 MOV #T32PK3,R4 SSET UP R4 WITH PACKET ADDRESS 

2529 047244 010337 051456 27$: MOV R3,13252 3SET UP RECORD SIZE IN PACKET 

2530 047250 010465 00 MOV R4.TSDB(RS) COMMAND 

2531 047254 004737 016330 JSR “WA “WAIT FOR SSR TO SET 

2532 047260 016501 00 MOV TSSR(RS) RI :GET TSSR CONTENTS 

2533 047264 012702 000200 MOV #SSR,R2 ‘SET UP EXPECTE 

2534 047270 020102 CMP 1,R2 TARE THEY EQ 

2535 047272 001406 BEQ $ 78R, IF OK 

2536 047274 005237 002214 INC FATFLG sERROR COUNT 

2540 047300 ERRHRD ERRNO, T32WDC,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
047300 104456 TRAP  C$ERHRD 
047302 000624 «WORD 404 
047304 052536 “WORD T32wWDC 
047306 012126 “WORD PKTSSR 

2541 047310 28$:  CKLOOP :LOOP IF SELECTED 
047310 104406 TRAP C$CLP1 

2542 047312 005723 TST (R3)+ ;BUMP RECORD COUNTER 

2543 047314 020327 001002 CMP R3,4514. AT MAX'S SIZE YET 

2544 047320 00135 BNE 27$ 7BR, IF NOT AT END OF LOOP 

2545 047322 004737 011074 JSR PC,REWIND ;CALL TAPE REWIND COMMAND 

2546 047326 103411 BCS :BR, IF NO 

2547 047330 016501 000002 MOV TSSR(RS),R1 GET TSSR CONTENTS 
047334 010004 MOV ; :SET UP REWIND PACKET ADDRESS 

9 047336 005237 002214 INC FATFLG sERR COUNT 

2553 047342 ERRHRD ERRNO, T32RWN,PKTSSR sREWIND NOT ACCEPTED 
047342 104456 CSERHRD 
047344 000625 : 05 
047346 051700 “WORD T32RWN 
047350 012126 “WORD PKTSSR 

2554 047352 30$:  CKLOOP ;LOOP IF SELECTED 

735 1044 TRAP CSCLP1 

2555 047354 013701 051360 MOV T32BFR+6,R1 :PICK UP XSTO 

2556 047360 010102 MOV R1,R :SET UP EXPECTED 

2557 047362 052702 000002 BIS #BIT1,R2 :SET BOT pelt IN EXPECTED 

2558 047366 020102 CMP 1,R2- [DOES EXP = REC'D 

2559 047370 001406 BEQ BR, IF EQUAL (OK) 

2560 047372 005237 002214 INC FATFLG ZERROR COUNT 

2564 047376 ERRHRD ERRNO, \32B0E ,EXPREC ; TAPE AT BOT AFTER ERASE 
ooze 4 104456 RAP CSERHRD 
047400 000626 «WORD 406 
eat 052366 “WORD T32B0E 
047404 015554 <WORD EXPREC 

2565 047406 40$: CKLOOP ;LOOP IF SELECTED 
047406 104406 CSCLP1 

2566 04741) 012737 140411 051450 MOV #140411, T32PK3 sERASE TAPE .CVC=1.ACK COMMAND 

2567 047416 012704 051450 MOV #T32PK3.R 'SET UP R4 WITH PACKET ADDRESS 

2568 047422 010465 000000 MOV R4, TSpBiRS) c 

2569 047426 004737 016330 JSR PC. WAITF ‘WAIT FOR SSR TO SET 

2570 047432 016501 000002 MOV TSERCRS) RI :GET TSSR CONTENTS 

2571 047436 012702 000200 MOV #SSR,R2 [SET UP EXPECTED 

2572 047442 020102 CMP R1,R2 TARE THEY 

2573 047444 001406 BEQ 50$ BR, 

2574 047446 005237 002214 INC FATFLG sERROR COUNT 

2578 047452 ERRHRD ERRNO, T32ERA,PKTSSR ZTSSR INCORRECT AFTER ERASE DATA 
047452 104456 TRAP CSERHRD 
047454 000627 : 407 


TEST 4: ERASE 
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051360 
000002 


002214 


051366 
000001 


002214 


002214 
017262 





CKLOOP 
MOV 
MOV 
BIC 
CMP 
BEQ 


INC 
ERRHRD 
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T32BFR+6,R1 
4BIT1,R2 

R1,R2 

55$ 

FATFLG 

ERRNO, T32B0E ,EXPREC 


FREE, T32RB 
#160401, 132PK3 
. 13282 
AT32PK3_RS 
RG. TSDB{RS) 


TSSR(R5) RI 
#SSR!SC!BIT2,R2 
R1,R2 


FATFLG 
ERRNO, T32TSA,PKTSSR 


T32BFR+14,R1 
#BiTO,R2 
R1,R2 


FATFLG 
ERRNO, T32R1B, EXPREC 


FAreLG 415. 
PC, CKDROP 


:LOOP IF SELECTED 
:PICK UP_XSTO 

:SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 
:DOES EXP = REC'D 

:BR, IF EOUAL (OK) 


ERROR COUNT 
: TAPE NOT AT BOT AFTER = 


sLOOP IF SELECTED 
sADDRESS OF BUFFER 


sREAD S Yee atte be het COMMAND 


SET UP THE SIZE OF RECORD 


SET UP 4 WITH PACKET ADDRESS 


2 ISSUE COMMAND 
sWAIT FOR SSR_TO SET 
sGET TSSR CONTENTS 


zsBR, IF OK 
zsERROR COUNT 

;TSSR INCORRECT AFTER READ DATA 
TRAP 
WORD 
WORD 
WORD 

;LOOP IF SELECTED 
TRAP 

GET XST3 STATUS WORD 

sSET UP EXPECTED 

sSET THE RIB BIT 

sARE THEY EQUAL 

sBR, IF EQUAL (GOOD) 

sERROR COUNT 

7RIB SHOULD BE SET 
TRAP 
WORD 
WORD 
WORD 


T32ERA 
PKTSSR 


CSCLP1 


CSERHRD 
408 

T32B0E 
EXPREC 


CSCLP1 


zSET UP EXPECTED TAPE STATUS ALERT 
;ARE THEY EQUAL 


CSERHROD 
409 


T32TSA 
PKTSSR 


CSCLP1 


CSERHRD 
410 


T32R18 


EXPREC 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10054: 


TRAP 
21S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
sTRY TO DROP THE UNIT 





CSE SUB 


aT 
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TEST 4: ERASE AND OPERATION INCOMPLETE SEQ 0184 
2624 :+ 
2625 ; 
$6 $ ;TEST 4, SUBTEST 2 
2628 $ VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN Ma na IS NOT 
2629 é POSITIONED AT BOT OPERATES PROPERLY AND D DOES NO RRUPT 
soz0 : PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 
263 3 1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
gh : WRITTEN, AND THE TAPE IS REWOUND AGAIN. 
2635 : 
2636 ; 2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
2637 , TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
sone 3 RECORDS. 
2640 3 ae RASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
so ; oF FRE TEST RECORDS. 
or? ; 4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 
2645 3 5. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
2646 3 NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
2647 3 TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
2648 5 RECORD. THIS DEMONSTRATES THAT NO DATA WAS ot ee 
2649 3 IN THE AREA ERASED BY THE ERASE COMMAND, AND T THE 
5020 3 PREVIOUS RECORD WAS NOT CORRUPTED. 
2652 3 
2653 ; 
2654 3 
2655 3 
ss 7 
2658 pata} BGNSUB 7>>>>>>>>>>>> seein SUBTEST >>>>>>>>>>>> 
047660 104402 TRAP C$B8SUe 
2659 047662 004737 052700 JSR PC, T32REST 7SET COMMAND PACKET 
7666 004737 052772 JSR PC. T3ORT2 SET UP OTHER COMMAND PACKET 
2661 047672 004737 053022 JSR PC, T3cRTS [SET UP OTHER COMMAND PACKET 
2 047676 004737 016054 JSR PC, SOF INIT ‘D0 ee ON CONTROLLER 
2663 047702 10340 BCS 208 7BR IF INIT WAS OK 
047704 005237 002214 INC FATFLG zsERROR COUNT 
2668 047710 010001 Vv RO,R1 : CONTENTS OF TSSR REGISTER 
2669 047712 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
047712 104455 TRAP CSERDF 
047714 000633 -WORD 411 
047716 003646 -WORD SFIERR 
047720 ges : SF IMSG 
2670 047722 013737 002174 051350 20S: MOV UNI TN TSe0Su sSET UP UNIT NUMBER IN PACKET 
1 047730 012704 051330 MOV #TS2PACKET,R4 > SUBROUTINE NEEDS PACKET noOness 
3 7734 004737 010742 JSR WRTCHR TISSUE WRITE CHARACTERISTICS 
2673 047740 103407 Bcs 2 sBR, IF COMMAND ISSUED OK 
2674 047742 0052 002214 INC FATFLG ERROR 
2678 047746 010001 MOV RO,R1 say CONTENTS OF TSSR 
2679 047750 ERRHRD ERRNO, WRTMSG,SFIMSG WRITE CHARACTERIST isc FAILED 
047750 104456 CSERHRD 
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TEST 4: ERASE AND OPERATION INCOMPLETE 


047752 060634 
047754 005052 
047756 012114 
2680 047760 238: 
047760 104406 
2681 047762 004737 011074 
047766 103407 
e623 047770 010004 
047772 005237 002214 
047776 
047776 104456 
050000 000635 
050002 051700 
050004 012126 
2689 050006 30S: 
050006 104406 
2690 050010 013701 051360 
2691 050014 010102 
2692 050016 052702 000002 
2693 050022 020102 
050024 001406 
2695 050026 005237 002214 
050032 
050032 104456 
050034 36 
050036 051516 
050040 015554 
2700 05004 40$: 
05 104406 
2701 050044 012703 000144 
2702 050050 010300 
2703 050052 737 ~=017502 
2704 050056 013737 003116 051452 
2705 050064 012737 140005 051450 65$ 
06 050072 012704 051450 
2707 050076 010300 
050100 737 017502 
050104 010357 051456 
2710 050110 010465 000000 
2711 050114 737 016330 
712 050120 016501 000002 
2713 050124 012702 000200 
2714 050130 020102 
sri? 050132 0014 
2716 050134 005237 002214 
$700 es dps | 
050140 104456 
050142 37 
050144 052536 
050146 012126 
2721 25 SF 80$: 
050150 1044 
2722 050152 00572 
2723 050154 020327 000156 
2724 050160 001341 
2725 050162 004737 011074 
2726 050166 103407 


CKLOOP 


JSR 
BCS 
MOV 


INC 
ERRHRD 


PC REWIND 
308 


FATFLG 
ERRNO, T32RWN,PKTSSR 


T32BFR+6,R1 
R1,R 
#B1T1,R2 
R1,R2 

40$ 
FATFLG 

ERRNO, T32BOT , EXPREC 


#100. .R3 
R3,RO 
4% ett MEM 
2uB 
#140008 -132PK3 
#T32PK3_RG 
R3,RO 
PC, ab LnEM 
R4, rseetas? 
WA 
TS8ncus), R1 
Rens. . 
$ 


FATFLG 
ERRNO, T32WDC ,PKTSSR 


(R3)+ 
R3,4110. 
PC REWIND 
Shs 


SEQ 0185 
WORD 412 
«WORD WRTMSG 
«WORD SFIMSG 


LOOP IF SELECTED 
TRAP CSCLP1 


soe TAPE a eb ay COMMAND 
IF NO PROBLEM 
‘Set UP REWIND PACKET ADDRESS 
COUNT 


;ERROR 
;REWIND NOT ACCEPTED 
TRAP _ 


«WORD 
-WORD T32RWN 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP _XxsTO 
2SET UP_EXPECTED 
SET BOT a ig IN peenres 
:DOES EXP = REC*D 
. If EQUAL (OK) 
ERROR COUNT 
;TAPE NOT AT BOT AFTER 4 try 
CSERHRD 
rGORD ais 
-WORD 132BOT 
«WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 
3 STARTING RECORD SIZE 
3SET UP MEMORY FILL 
:CALL MEMORY FILLER 
sSTARTING WRITE BUFFER ADDRESS 
WRITE DATA,CVC=1,ACK COMMAND 
SET UP_R4 WITH PACKET ADDRE 
sSET PATTERN IN ey REGISTER 
ILL MEMORY WITH RECORD 
SET UP RECORD SIZE IN PACKET 
2 ISSUE COMMAND 
WAIT FOR SSR _TO SET 


7GET TSSR CONTENTS 
SET UP EXPECTED 
E THEY EQUAL 


zERROR COUNT 
zTSSR INCORRECT AFTER 1, ca 


CSERHRD 
WORD 415 
WORD T32WDC 
-WORD PKTSSR 


sLOOP IF SELECTED 


TRAP 
sBUMP RECORD size COUNTER 
AT 160 SIZE YET 

BR, IF MORE RECORDS TO WRITE 
CALL TAPE es COMMAND 
BR, IF NO PROBL 


CSCLP1 


TEST 4: 
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ERASE AND 
2727 050170 


200 
050202 


2739 050226 
2743 050232 


502 
2744 05024 
024 


2745 050244 


2754 050310 
2755 050312 
2759 050316 
050316 
050320 
050322 
050324 
2760 050326 
050326 

gre) 050330 
Oeare 
50344 

is 030382 
765 Senses 
$f 769 05 30366 
2768 o505e6 
2769 050376 
2770 050400 


2771 050402 
2775 050406 
050406 


050414 
2776, 050416 


OPERATION INCOMPLETE 


010001 
005237 


104456 
0 


051700 
015554 


002214 


051360 
000002 


002214 


00000 
Hh tg 
1404 
051450 
000000 
016330 
000002 
000200 


—t 
ae fs 


002214 


051450 


230$: 


240$: 


265$: 


2908: 


INC 
ERRHRD 


CKLOOP 


FATFLG 
ERRNO, T32RWN, EXPREC 


Treeeneé. R1 
weir oR2 
R1,R2- 


FATFLG 
ERRNO, T32B0T ,EXPREC 


PACE 
ridge T32PK3 
R, -TSDBERS? 
TSSRCKS), R1 
#SSR,R2 

1,R2 

és 


FATFLG 
ERRNO, T32ERA,PKTSSR 


FREE, T32RB 

#140401, 32PK3 

#100. ,13252 
T32PK3,R4 

R4, TSDB{RS) 

PC. WAITF 

TSER(RS), RI 


ey ted 
90$ 


FATFLG 
ERRNO, T32TSA,PKTSSR 


3;SAVE TSSR 
sERROR COUNT 
ZREWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 416 
-WORD T32RWN 
«WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP xSTO 
sSET uP EXPECTED 
;SET BOT al IN ieee 
:DOES EXP = REC'D 
ZBR, IF EQUAL (OK) 
sERROR COUNT 
3 TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
eWORD 417 
-WORD T3260T 
-WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
;SET UP FOR SPACE COMMAND 
Zs ISSUE SPACE COMMAND 1 FORWARD 
S ERASE DATA,ACK COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
Zs ISSUE COMMAND 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
ERROR COUNT 
zTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
-WORD 418 
-WORD T32ERA 
-WORD #PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sADDRESS OF BUFFER 
TREAD REVERSE .ACK,CVC=1 COMMAND 
ZSET UP THE SIZE OF RECORD 
[SET UP R4 WITH PACKET ADDRESS 
$ come 
sWAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
[SET UP EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 
ERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
. 419 
eWORD T32TSA 
-WORD PKTSSR 


sLOOP IF SELECTED 





SEQ 0186 


TEST 4: 
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ERASE 


050446 
2786 050450 
2787 050452 
2788 050452 

050452 

050452 
2789 050454 
2790 050462 
2791 050464 
2792 050470 


AND OPERATION INCOMPLETE 


132472 
000144 


002214 


002214 
017262 


000017 


300$: 
330$: 


999$: 


CKLOOP 


ENDSUB 


CMP 
BLO 
JSR 


@FREE,R1 
#100. oR2 
R1,R2 


FATFLG 
ERRNO, T32ECF ,EXPREC 


FATFLG,#15. 
999$ 
PC,CKDROP 


TRAP 

:GET oa READ 

sSHOULD BE 100 

: CHECK EM OUT 

sERROR COUNT 

;ERASE COMMAND DIDN'T WORK 
TRAP 
«WORD 
«WORD 
«WORD 

sLOOP IF SELECTED 
TRAP 


SEQ 0187 
CSCLP1 


CSERHRD 
4 


TS2ECF 
EXPREC 


CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10055: 


TRAP 
21S ERROR COUNT AT 25 


sBR, 
sTRY 


IF LESS THAN 25 
TO DROP THE UNIT 


CSESUB 


m- 
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TEST 4: ERASE AND OPERATION INCOMPLETE SEQ 0188 
2794 3+ 
2795 ; 
$736 :TEST 4, SUBTEST 3 
$38 3 VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR 
799 3 Seevce BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT 
2800 ; TERMINA LE WITH THE EOT STATUS BIT SET. ne VERIFIES THAT THE 
2801 ; OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE i BLANK 
2802 : RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION | 
soo7 3 INCOMPLETE STATUS. THE FOLLOWING TEST SEQUENCE is. EXECUTED: 
Sone 3 1. THE TAPE IS REWOUND. 
2807 3 2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 
2808 3 IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
2809 ; I EOT=0) OR TAPE STATUS ALERT (WITH 
2810 3 EOT=1) IS EN ERED. IF THE CONTROLLER OR TRANSPORT 
2811 $ DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 
2812 : THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS | 
Siz 3 ABORTED. | 
2815 5 3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
2816 g VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 
ale : WITH EOT=1. 
3 
2819 3 4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
2820 3 (ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABL 
2821 r ERROR TERMINATION WITH OPI=1: SPACE RECORDS REVERSE 
2822 ; SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
2823 3 (OPP=0) REREAD PREVIOUS (OPP=1) REREAD NEXT (OPP=1) 
2824 3 REREAD NEXT (OPP=0) READ NEXT SKIP TAPE MARKS REVERSE 
2825 ; SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE | 
2826 ; DATA RETRY 
2827 $ | 
2828 3 
2829 3 
seat 
2832 050470 BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> | 
050470 14.3: | 
050470 104402 TRAP —- CSBSUB 
2833 050472 004737 052700 JSR 4% T32REST sSET COMMAND PACKET | 
2834 050476 004737 052772 JSR T3eRT 3SET UP OTHER COMMAND PACKET 
2835 050502 004737 053022 JSR T32RT sSET UP ones COMMAND PACKET 
2836 050506 012737 176750 051514 MOV Bala troy 7SET UP DELAY COUNTER | 
2837 050514 004737 016054 10$: JSR PC.S :D0 INITIALIZE ON CONTROLLER 
2838 050520 103426 BCS 6 INIT WAS Ok 
2839 050522 DELAY 250 {DELAY ABOUT .25 SEC 
050522 012727 000250 MOV #250, (PC)+ 
050526 000000 . WORD 
0505 013727 002116 MOV LSOLY, (PC)+ 
050534 000000 - WORD 
050536 005367 177772 DEC -6(PC) 
050542 001375 BNE 74 
050544 005367 177756 DEC -22(PC) 
050550 001367 BNE -720 
2840 050552 005337 051514 DEC T32DLY ;BUMP COUNTER 
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2841 050556 001356 BNE 10$ BR, .1F COUNTER NOT DONE 

2842 050560 005237 002214 INC FATFLG ; OUN 

2846 050564 010001 MOV RO,R1 ZCONTENTS OF TSSR REGISTER 

2847 050566 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
050566 104455 TRAP  CSERDF 
050570 000645 .WORD 421 
050572 003646 -WORD SFIERR 
050574 012114 pd SFIMSG 

2848 050576 013737 002174 051350 20$: MoV UNITN, T32DSW SET UP"UNIT (DRIVE) NUMBER 

2849 050604 052737 000040 051350 BIS #BITS.T32DSW STURN ON HIGH SPEED TO SAVE TIME 

2850 050612 012704 051330 MOV #T32PACKET, R4 : SUBROUTINE NEEDS PACKET ADDRESS 

2851 050616 004737 010742 JSR PC ,WRTICHR TISSUE WRITE CHARACTERISTICS 

2852 050622 103407 BCS 238 :BR, IF COMMAND ISSUED OK 

2853 050624 005237 002214 INC FATFLG ZERROR COUNT 

2857 050630 010001 MOV RO,R1 ZSAVE CONTENTS OF TSSR 

2858 050632 ERRHRD ERRNO,WRTMSG,SFIMSG * WRITE CHARACTERISTISC oy 
050632 104456 CSERHRD 
050634 000646 TeORD 422 
050636 005052 “WORD WRTMSG 
050640 012114 <WORD  SFIMSG 

2859 050642 23$:  CKLOOP ;LOOP IF SELECTED 
5 104406 TRAP _— C$CLP1 

2860 050644 004737 011074 JSR PC,REWIND sCALL TAPE REWIND COMMAND 

2861 050650 103411 BCS [BR, IF NO PROBLEM 

2862 050652 016501 000002 MOV TSSR(RS) ,R1 GET TSSR CONTENTS 

2863 050656 010004 MOV RO,R4 SGET PACKET ADDRESS 

2864 050660 005237 002214 INC FATFLG sERROR COUNT 

2868 050664 ERRHRD ERRNO, T32RWN,PKTSSR sREWIND NOT ACCEPTED 
050664 104456 CSERHRD 
05 7 «WORD 423 
050670 051700 “WORD T32RWN 
050672 012126 “WORD PKTSSR 

2869 050674 30$: CKLOOP ;LOOP IF SELECTED 

74 1064406 TRAP CSCLP1 

2870 050676 013701 051360 MOV T32BFR+6,R1 sPICK UP_XSTO 

2871 050702 010102 MOV R1,R2 'SET UP ore PECTED 

2872 050704 052702 000002 BIS #B1T1,R2 :SET BOT BIT IN EXPECTED 

2873 050710 020102 CMP R1,R2- [DOES EXP = REC'D 

2874 050712 001406 BEQ 40$ [BR, IF EQUAL (OK) 

2875 050714 005237 002214 INC FATFLG sERROR COUNT 

2879 050720 ERRHRD ERRNO, 132BOT, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
50720 104456 TRAP  CSERHRD 
050722 0 «WORD 424 
050724 051516 “WORD  T32B0T 
050726 015554 <WORD EXPREC 

2880 050730 40$:  CKLOOP :LOOP IF SELECTED 
050730 104406 TRAP  CS$CLP1 

2881 050732 012737 140411 051450 65%: MOV #140611, T32PK3 ZERASE DATA, cvc=t ACK COMMAND 

2882 050740 012704 051450 MOV #732PK3,R4 [SET UP R4 WITH PACKET ADDRESS 

2883 050744 010337 051456 MOV sR, $508) SET 4 RECORD SIZE IN PACKET 

2884 050750 010465 MOV Ra. TSDB(RS) Z ISSUE COMMAND 

2885 050754 004737 016330 JSR PC: WAIT FOR SSR TO SET 

2886 050760 016501 002 MOV TSéRcns), R1 <GET TSSR CONTENTS 

2887 050764 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

2888 050770 02010 CMP 1,R2 ZARE T 

2889 050772 00175 BEQ 65 I 

2890 050774 032701 000004 BIT #B1T2,R1 CHECK FOR TAPE STATUS ALERT 
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TEST 4: ERASE AND OPERATION INCOMPLETE SEQ 0190 
891 051000 001 BNE 80$ :8R, If TAPE STATUS ALERT SET 
892 051002 005237 002214 INC FATFLG ; 

2896 051006 ERRHRD ERRNO, T32WDC,PKTSSR sTSSR INCORRECT AFTER WRITE DATA 
051006 104456 TRAP  CS$ERHRD 
051010 900651 WORD 
051012 052536 “WORD T32WOC 
051014 012126 “WORD PKTSSR 

2897 051016 80$:  CKLOOP :LOOP IF SELECTED 
051016 104406 TRAP _— C$CLP1 

2898 051020 013701 051360 MOV T32BFR+6,R1 :PICK UP XSTO 

2899 051024 010102 MOV R1,R2 :SET UP EXPECTED 

2900 051026 052702 000001 BIS #BiTO,R2 :SET EOT BIT IN EXPECTED 

2901 051032 020102 CMP R1,R2 ‘DOES EXP = REC'D 

2902 051034 001406 BEQ 240$ ‘BR, IF EQUAL (OK) 

2903 051036 005237 002214 INC FATFLG sERROR COUNT 

2907 051042 ERRHRD ERRNO, T32EOT,EXPREC 3 TAPE NOT AT EOT AFTER a COMMANDS 
051042 104456 CSERHRD 
051044 000652 TeORD 426 
051046 051611 “WORD T32E0T 
051050 015554 <WORD EXPREC 

2908 051052 240$:  CKLOOP ;LOOP IF SELECTED 
051052 104406 TRAP CSCLPI 
051054 012703 051460 MOV #T32CMD,R3 ZSTARTING RECORD SIZE 

2910 051060 013737 003116 051452 MOV FREE, T3ORB STARTING READ BUFFER ADDRESS 

2911 051066 011337 051450 265$: MOV (R3) . T32PK3 :READ DATA,ACK COMMAND 

2912 051072 012704 051450 MOV #T32PK3,R4 sSET UP R4 OTH PACKET ADDRESS 

2913 051076 012700 177777 MOV #177777.RO iSET PATTERN IN CORRECT REGISTER 

2914 051102 004737 017502 JSR PC .FILLMEM sFILL MEMORY WITH ALL 

2915 051106 012737 000144 051456 MOV #100. 13282 :SET UP RECORD SIZE IN PACKET 

2916 051114 010465 000000 MOV R4, TSDB(RS) ‘ISSUE COMMAND 

2917 051120 012737 000062 051514 MOV #50.,T32DLY :SET UP DELAY COUNTER 

2918 051126 004737 016330 270$: JSR PC,WAITF [WAIT FOR SSR TO SET 

2919 051132 016501 000002 MOV TSSR(R5S),R1 [GET TSSR CONTENTS 

2920 051136 012702 100214 MOV WSSR'SC!BIT2!BIT3,.R2 | :SET UP EXPECTED 

2921 051142 020102 CMP 1,R2 TARE THE 

2922 051144 001425 BEQ 80$ 7BR, IF 

2923 051146 DELAY 250 SDELAY FOR SSR TO BE SET 
051146 012727 000250 MOV #250, (PC)+ 
051152 000000 «WORD 0 
051154 013727 002116 MOV LSDLY, (PC)+ 
051160 «WORD 0 
051162 005367 177772 DEC -6(PC) 
051166 001375 BNE : 
051170 005367 177756 DEC -22(PC) 
051174 001367 BNE .-20 

2924 051176 005337 051514 DEC T32DLY :COUNT DELAY ROUTINE DOWN 

2925 051202 001351 BNE 270$ BR, IF DEL Ay HAS NOT ENDED 

2926 051204 005237 002214 INC FATFLG ERR T 

2930 051210 ERRHRD ERRNO, T32ECF ,PKTSSR :TSSR INcORRECT AFTER READ DAIA 
051210 104456 TRAP CSERHRD 
051212 000653 «WORD 427 
051214 052455 “WORD T32ECF 
051216 012126 “WORD PKTSSR 

2931 051220 280$:  CKLOOP :LOOP IF SELECTED 
051220 104406 TRAP  CS$CLP1 

2932 051222 013701 051366 MOV T32BFR+14,R1 :PICK UP XST3 

2933 051226 010102 MOV R1,R2 ‘SET UP EXPECTED 





34 051230 


030708 000100 
02010 
bey 
005237 002214 


104456 
000654 


052603 
015554 


290$: 


177777 


3 
727 002214 000017 
004737 017262 


999$: 


ERRHRD 


CKLOOP 
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#81T6,R2 
R1,R2 


FATFLG 
ERRNO, T320P1 ,EXPREC 


(R3)+ 
(R3) ,4177777 
265$ 


FATFLG,#15. 
999$ 
PC ,CKDROP 





sSET OPI BIT IN EXPECTED 
21S OPI BIT SET 
3BR, IF BIT IS SET 


sERROR COUNT 

;OPI BIT’NOT SET 
TRAP 
- WORD 
«WORD 
- WORD 

LOOP IF SELECTED 
TRAP 


COMMAND POINTER 


SEQ 0191 


CSERHRD 


4 
T320P1 
EXPREC 


CSCLP1 


£>>5>>>3>>>>> war t+ tna >>>>>>>>>>>> 
L 


TRAP 
31S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
zTRY TO DROP THE UNIT 


CSESUB 
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295 ; 
Soe : 
2955 051304 004737 016536 JSR PC, TSTLOOP 300 WE yy TO ITERATE TEST 
2956 051 10300 BCC 163$ :BR, IF NO LOOP REQUIRED 

1 047020 JMP T32L00P TEXECUTE AGAIN 

EXIT TST TALL DONE THIS TEST 
1 TRAP 
WORD 


SEQ 0192 


2960 

2961 

2962 

2964 

2966 051330 
2967 051330 
2968 051332 
2969 051334 
2970 051336 
2971 051340 
2972 051340 
2973 051342 
2974 051344 
2975 051346 
2976 051350 
2977 051352 
2978 

2979 

2980 

2982 

2984 051440 
2985 051440 
2986 051 
2987 051444 
2988 051 
2989 

2993 051450 
2994 051450 
2995 051452 
2996 051452 
2997 051454 
2998 051456 
2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 051460 
3009 051460 
3010 051462 
3011 051464 
3012 051466 
3013 051470 
3014 051472 
3015 051474 
3016 051476 
3017 051500 
3018 051502 
3019 051504 
3020 051506 
3021 

$56 

3023 051510 


051330 
100004 
051340 
000000 
000012 
051352 
000000 
000024 
000000 
000000 


051440 


ot 
eee 

—~— 
VasslSS2S2s5 


N 
N 
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:LOCAL STORAGE FOR THIS TEST 


=<.+10>8177770 
saecnthe 


.WOR 100004 

WORD T32DATA 

«WORD 0 

WOR 10. 
T32DATA: 

-WORD T32BFR 

-WORD 0 

eWORD 20. 

WORD 


. 0 
T32DSW: .WORD 0 
T32BFR: .BLKW 25. 


[WRITE SUBSYSTEM MEMORY COMMAND PACKET 


-=<.+10>8177770 


T32PK2: 
-WORD 100006 
-WORD 0O 
eWORD 0 
eWORD 6. 
T32PK3: 
-WORD 100005 
T32RB: 
T32WB: .WORD FREE 
eWORD 0O 
T32SZ2: .WORD 0 
EVEN 


EVEN 
3: TAPE MOTION PACKET COMMAND VALUES 
T32CMD: 


oO 

_~) 
aR a a a 
NEL SOARALE SKS 
Noe Om SS = OO 
NM0O0 2 2 2 2 2 OO 


T32CNT: .WORD 


So 


COMMAND PACKET FOR TEST 
WRITE CHARACTERISTICS COMMAND, WITH , 
ADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
3 CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
sMESSAGE BUFFER 


WRITE SUB SYS MEM COMMAND, 
ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


AND ACK 


REREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 


SPACE RECORDS REVERSE 
ay ae «ff MARKS REVERSE 


EVERSE 
; REREAD PREVIOUS Lae 
sREREAD NEXT (OPP 
REREAD aoay ie (OPP=1) 
REREAD NEXT (OPP=0) 


sREAD NEXT 

SKIP TAPE og A tb 
SKIP RECORDS F 

3WRITE DATA RETRY 

END OF DATA 


zTAPE TIMER COUNTER STORAGE AREA 


SEQ 0193 


ACK 
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3024 051512 060000 T32CNU: .WORD 0 3 TAPE TIMER COUNTER STORAGE AREA 
sos2 051514 000000 TS2DLY: .WORD 0 DELAY COUNTER 











3028 
3029 
3030 
3031 
3032 
3033 
3034 051516 124 141 160 
3035 051611 124 141 160 
3036 051700 122 145 167 
3037 051747 124 123 123 
3038 052016 124 123 123 
3039 052063 124 123 102 
3040 052136 122 105 101 
3041 052234 124 123 123 
3042 052311 124 123 123 
3043 052366 102 117 124 
Soce 052455 105 122 101 
3046 052536 124 123 123 
3047 052603 117 120 111 
3048 052640 105 162 141 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 052700 
3058 052700 
3059 052704 012701 051330 
3060 052710 012721 100004 
3061 052714 012721 051340 

052720 005021 
3063 052722 012721 000012 

052726 012721 051352 
3065 052732 005021 

052734 012721 000024 
3067 052740 005021 

052742 012711 
3069 052746 012702 000030 
3070 052752 012762 177777 051352 
3071 052760 00574 
3072 052762 022702 000000 
3073 052766 00137 
3074 052770 000207 
3075 
3076 
3077 052772 
3078 052772 
3079 052776 012701 051440 

053002 012721 100006 

05 005021 
3082 053010 poses! 
3083 053012 012721 000006 

3016 021 
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3+ 
sLOCAL TEXT MESSAGES FOR TEST 


32B0T: .ASCIZ 
Tageor! oA ASCIZ ‘Tape 


‘Tape Not At BOT After REWIND Command (BOT Not Set In x$T0)° 
Status Alert During Erase To EOT, But EOT Not Set‘ 
"Rewind (POSITION) Command Not Agcops ted’ 


‘TSSR Not Correct After ERASE Command‘ 

*TSBA Not Correct After REREAD DATA Command’ 

"READ REVERSE, After ERASE From BOT, Failed To Set RIB In XST3° 
"TSSR Not Correct After SPACE RECORDS Command’ 

S *TSSR Not Correct After READ REVERSE Into BOT’ 

ASCIZ ‘BOT (xSTO) Still Set After Erase From Tape''s BOT Marker’ 
"ERASE Failed To Clear Tape (Erase) Tape Properly’ 


*TSSR Not Correct 5 iter anaes Command’ 
o Set 
‘Erase And Operation Incomplete’ 


ZORWN: .ASCIZ 

T32AM3: .ASCIZ ‘TSSR Init. Failed After REREAD C 
T32ERA: .ASCIZ 

T32BA: .ASCIZ 

T32RIB: .ASCIZ 

T32SCF: .ASCIZ 

T32TSA: .ASCIZ 

T32B0E: . 

T32ECF: .ASCIZ 

T32WDC: weed: Z 

T320PI: .ASCIZ Bs! Bit (xST3) 
TST321D: on ASCIZ 


‘* 


SROUTINE TO RESTORE COMMAND Ae TO START-UP (DEFAULT) VALUES 


WRITE SUBSYSTEM MEMORY C 


T32REST: 

SAVREG 
V BTS2PACKET R1 

MOV #100004, (Ri)+ 
MOV ATSQDATA, (R1)+ 
CLR (R1)¢ 
MOV #10.,(R1)+ 
MOV #T326FR, (R1)+ 


(R 

MOV #20. .(R1)¢ 
(R1)+ 

MOV #0,(R1) 


MOV #24. Re 
64$: MOV #177777, T32BFR(R2) 
TST =(R2) 
CMP #0,R2 
BNE 648 
RTS PC 
T32PT2: 
SAVREG 
OV #T32PK2,R1 
MOV #100006; (R1)+ 
CLR 
CLR Rie 
MOV #6.,(R1)+ 
(RiS+ 





3 SAVE 7a REGISTERS 
ST. PA 


WITH ACK, 
DRESS OF CHARAISTICS DATA BLOCK 
S EXTENDED ADDRESS 
SIZE OF DATA BLOCK IN BYTES 
ADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


SELECT DRIVE ZERO 
:NUMBER OF LOCATIONS TO * _ tenes 
ay? TO MESSAGE BUFF 
ZNEKT LOCATION 
T END OF LOOP YET 
I REEP GOING UNTIL DONE 
;RETURN 


ener THE Bhi 
;WRITE SUBS Ho MEM. WITH ACK, 
A BLOCK 


DRESS 
sSIZE OF DATA BLOCK IN BYTES 


SEQ 0195 
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TEST 4: ERASE 


3085 053020 
3086 053022 


060207 


AT 44 


AND OPERATION INCOMPLETE 


051450 


T32RT3: 


R 
ENDTST 


PC 


#T32PK3,R1 
(R1)+ 


;RETURN 


sSAVE REGISTERS 
3SET UP ee ADDRESS 


TADDRESS yt sence BLOCK 
EXTENDED ADDRESS 

sSIZE_OF DATA TRANSFER BLOCK 
RETURN 


L10053: 
TRAP 


CSETST 


SEQ 0196 


a ——— 


C 
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-SBTTL TEST 5: DATA PARITY TEST 


338 


Be Se Ge Ge Se Ge Ge 
aa 


;TEST 5 == Data Parity Test 


sThis test verifies that the data nt circuitry in both the controller and the 

stransport is operating properly by forcing data records with won parity to be 

swritten onto tape and checking the results obtained when the data is read. The 

:following test sequence is performed: 

1. A Write Characteristics command is issued and the resulting status _is 
examined to determine the states of the Extended Features and Buffering 
Enable switches on the controller module. If buffering is disabled, no 
further actions need be taken in this step and the program proceeds to 
the next step. If buffering is enabled, it is disabled via the Buffer 
Control field in the extended characteristics data word supplied by a 
Write Characteristics command. (The module must be in Extended mode, 
so if it is not -lready, a Write Subsystem Memory command is issued to 
change the logical sense of the Extended Features switch.) 


WWW. WNWWNWWANWWWWWW 


2. The Write Subsystem Memory command is used to set the Force Wrong 
Parity control flip-flop. 


3. The tape is rewound. 


4. A Write Data command is issued to write a data record containing all 
0's. It is verified that this command results in Recoverable Error 
oo gt pte a (TC=4) and that the Uncorrectable Data Error (UNC) error 

it is set. 


Ss not Sas step is repeated for each data value 2 through 377 
octal). 


6. The tape is rewound. 


7. A Read Next command is issued to read a record with faulty parity. It 
is verified that this command results in Recoverable Error termination 
(TC=4) and that both the Uncorrectable Data (UNC) and Read Bus Parity 

error bits are set. It is also verified that the data actually 
read is correct. 


Mune as WWW Ww RMRNININNNIN 2 2 es BOOOOOCOCOCO 
UNIS SHNRARWVUODHSARAR UNOS SS NOUR OM OOD NAME NVA ODRURARAMOS 


Be Se Se Se Se Se Be Se Se Be Se Fe Se Ge Ge Be Fe Ge Be Ge Ge Ge Be Ge Ge Se Se Be Se Se Be Be Se Be Be Se Se Be Se Be Oe Se 


3 

3 8. A Read Reverse command with OPP=1 is issued to read, in reverse, the 
3 same record with faulty parity as read in the previous step. It is 
3 verified that this command results in Recoverable Error termination 
3 (TC=4) and that both the Uncorrectable Data (UNC) and Read Bus Parity 
3 (RBP) error bits are set. It is also verified that the data actually 
; read is correct. 

$1 9. Tape is spaced forward one record. 

31 10. The previous three steps are executed for each test record originally 
31 written. 
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TEST 5: DATA PARITY TEST SEQ 0198 
3154 ; 
3155 3 11. The controller is initialized to clear the special test conditions 
3156 $ previously set up. 
3157 ; 
3158 ; 
3159 ; 
3160 ia 
3161 053046 BGNTST 
053046 TS:: 
3162 053046 012737 006413 002172 MOV #EPRT2,EPRTSW sSECONDARY ERROR MESSAGE 
3167 053054 012700 055645 MOV #TST3310,RO sASCII MESSAGE TO IDENTIFY TEST 
3168 053060 004737 016570 JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
3169 053064 012737 000005 002210 MOV #5, LOOPCNT sPERFORM 5 ITERATIONS 
s100 053072 005037 054716 CLR T33CNT sCLEAR TAPE RECORD COUNTER 
2® 


172 : 
173 053076 T33LO0P: 
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3175 053076 


Wunuunaruyes 
ARAN SSO 


SQooooooooooosooco 
MMMM AMI VIM 


053164 


3300 


103426 
012727 
013727 


6 
. 012114 


000767 
055420 
012126 


104406 
013701 


177772 
177756 
054722 
002214 


002174 


054550 
010742 


002214 


011074 
000002 
002214 


054600 


054722 


054570 20S: 


238: 


30$: 


BGNSUB 


ERRHRD 


CKLOOP 
MOV 


E 
E 


INTRECV 
T33CNT 


T3 
PC,  TagnesT 


PC, SOF INIT 
20$ 
250 


T33DLY 
10$ 
FATFLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T330SW 
#T33PACKET,R4 
PC,WRICHR 
238 
FATFLG 


RO,R1 
ERRNO, WRTMSG, SF IMSG 


PC REWIND 
TSSR(RS) ,R1 


FATFLG 
ERRNO, T33RWN,PKTSSR 


T33BFR+6,R1 


SEQ 0199 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


TRAP 
4 da ae INDICATOR 
TIMER FOR WRITE DATA 


C$BSUB 


PACING 
Ae a FOR tH: DATA RETRY SPACING 


UP 
D0 INITIALIZE’ ON CONTROLLER 
BR IF INIT WAS OK 

DELAY ABOUT .25 SEC 


:BUMP COUNTER 

2BR, IF COUNTER NOT DONE 
3E COUNT 

sCONTENTS OF TSSR REGISTER 


FATAL ERROR TSSR WAS NOT OK 
TRAP 


:SET UP UNIT NUMBER 


#250, (PC)+ ~ 
LSDLY, (PC)+ 
=6(PC) 

4 

=22(PC) 


CSERDF 
501 

SFIERR 
SF IMSG 


; SUBROUTINE NEEDS PACKET ADDRESS 


ISSUE WRITE CHARACTERISTICS 
2BR, IF COMMAND ISSUED OK 


ERROR COUNT 
SAVE CONTENTS OF TSS 


R 
WRITE CHARACTERISTISC FAILED 
TRAP 
- WORD 
- WORD 


TRAP 
3CALL TAPE REWIND COMMAND 
NO PROBLEM 


3BR, IF 
7GET TSSR CONTENTS 
:GET PACKET ye 


ERROR T 
;REWIND NOT ACCEPTED 


:LOOP IF SELECTED 


:LOOP IF SELECTED 


sPICK UP XSTO 


CSERHRD 
502 

WRTMSG 
SF IMSG 


CSCLP1 


CSERHRD 
50 


CSCLP1 


F 
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010102 
052702 
Ss Bb 
1406 
003357 
neh 
00077 


Oss505 
015554 


104406 


000002 


002214 


40$: 


ERRHRD 


CKLOOP 





16 
11 





3-1 
R1,R2 :SET UP EXPECTED 
#B1T1,R2 ‘SET BOT BIT IN EXPECTED 
R1,R2. :DOES EXP = REC'D 
408 R, IF EQUAL (Ok) 
FLG sERROR COUNT 
ERRNO T33B0T -EXPREC ;TAPE NOT AT BOT AFTER REWIND 
WORD 
“WORD 
“WORD 
:LOOP IF SELECTED 
TRAP 


CSERHRD 
5 


04 
T3380T 
EXPREC 


CS$CLP1 


SEQ 0200 
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TEST 5S: DATA PARITY TEST SEQ 0201 
3228 053346 205737 002220 42$: ‘TST EXTFEA ZCHECK FOR EXTENDED FEATURES SW SWITCH 
29 053352 01025 BNE 55$ ‘BR IF SWITCH IS ON 
3236 053354 112737 000200 054701 MOVB #200 1338S1 ‘WRITE MISCELLANEOUS CONT/READ STATUS 
3231 053362 112737 000010 054700 MOVB #10,1338S0 SFUNC. SEL. BIT (TURN ON EXTFEA SWITCH) 
3232 053370 012704 §52560 MOV #T33PK2 RG [WRITE SUBSYS MEM PACKET 
3233 053374 010465 000000 MOV R4,TSDB(RS) Z ISSUE COMMAND 
3334 053400 004737 016416 JSR PC. CHKTSSR SWAIT FOR SSR 
3235 053404 103407 BCS 50$ ‘BR, IF NO ERROR 
3236 053406 010001 MOV RO,R1 TERROR, SAVE TSSR 
3237 053410 005237 002214 INC FATFLG sERROR COUNT i 
3241 053414 ERRHRD ERRNO, 1T33SSR,PKTSSR ZTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
053414 104456 TRAP —_ CSERHRD 
053416 771 WORD 
053420 055241 “WORD T33SSR 
053422 012126 “WORD PKTSSR 
3242 053424 50$:  CKLOOP :LOOP IF SELECTED 
053424 104406 TRAP _—C$CLP1 
3243 053426 005737 002222 55$: TST BENBSW :CHECK FOR BUFFER ENABLED 
3244 053432 001426 BEQ 70$ :BR, IF BUFFERING NOT ENABLED 
3245 053434 013737 002174 054570 MOV UNITN, T33DSW [SET UP UNIT NUMBER 
3246 053442 042737 000020 054570 BIC #B1T4,133D0SW ‘BUFFER DISABLE 
3247 053450 052737 000010 054570 BIS #B1T3,T33DSW SBUFFER DISABLE SEND 01 TO BITS 4 AND 3 
3248 053456 012704 054550 MOV AT33PACKET RG :SUBROUTINE NEEDS PACKET ADDRESS 
3249 053462 004737 010742 JSR PC ,WRTCHR TISSUE WRITE CHARACTERISTICS 
3250 053466 103407 BCS 60$ ‘BR, IF COMMAND ISSUED OK 
3251 053470 005237 002214 INC FATFLG ZERROR COUNT 
3255 053474 010001 MOV RO,R1 :SAVE CONTENTS OF TSSR 
3256 053476 ERRHRD ERRNO,WRTMSG, SF IMSG ‘WRITE CHARACTERISTISC FAILED 
053476 104456 CSERHRD 
000772 TeoRD 506 
053502 005052 “WORD WRTMSG 
053504 012114 “WORD  SFIMSG 
3257 053506 60$:  CKLOOP ;LOOP IF SELECTED 
053506 104406 TRAP  C$CLP1 
3258 053510 70$: 
3259 053510 112737 000100 054701 Move 4#100,133BS1 -URITE MISCELLANEQUS CONT /READ STATUS 
3260 053516 112737 000011 054700 MOVB «#11, T338S0 ZFUNC. SEL. BIT (SET WRONG PARITY 
3261 053524 012704 054660 MOV #T33PK2,R4 [WRITE SUBSYS MEM PACKET 
3262 053530 010465 000000 MOV Rae TSDB(RS) : ISSUE COMMAND 
3263 053534 004737 016416 JSR PC’ CHKTSSR 3WAIT FOR SSR 
3264 053540 103407 BCS 80$ IF NO ERROR 
3265 053542 010001 MOV RO,R1 TERROR, SAVE TSSR 
3266 053544 005237 002214 INC FATFLG ROR COUNT 
3270 053550 ERRHRD ERRNO, 133SSR,PKTSSR STSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
053550 104456 TRAP —_C$SERH 
053552 773 . WORD 
053554 055241 “WORD T33SSR 
053556 012126 “WORD PKTSSR 
3271 053560 80$:  CKLOOP :LOOP IF SELECTED 
053560 104406 CSCLP1 
3272 053562 012703 000026 MOV #22. ,R3 ZNUMBER OF RECORDS TO BE WRITTEN 
3 053 013737 003116 054672 MOV FREE *133WB ZSTARTING WRITE BUFFER ADDRESS 
3274 053574 005037 054720 CLR T33CNU TMAKE SURE ITS CLEAR 
5 05 012737 140005 054670 110$: MOV #140005, 133PK3 [WRITE DATA,ACK,CVC=1 COMMAND 
3276 053606 012704 054670 MOV #133PK3,R4 [SET UP R4 WITH PACKET ADDRESS 
3277 053612 012737 00024 054676 MOV 20.1 T3467 [SET UP RECORD SIZE IN PACKET 
3278 053620 013777 054720 127270 MOV T33CNU, aPhee SMEMORY FILLED WITH DATA IN RECORD 





i 
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3302 083756 
053726 
3303 053730 
732 


754 

053756 
053760 
053762 

3314 053764 
053764 

3315 053766 


3318 

3319 054002 
3320 0 

3324 Earth 


0 
3326 054022 
3327 054026 





TEST 5: DATA PARITY TEST 


055062 
015554 
104406 
005303 


001322 
re ht 4 


054720 
000000 
016330 
000002 
100210 


002214 


054602 
000002 


002214 


011074 
000002 
002214 


054600 
000002 


002214 


054720 
000024 


120$: 


130$: 


140$: 


150$: 


ERRHRD 


CKLOOP 


CLR 
MOV 


T33CNU 
R4,TSDB(RS) 

PC ,WAITF 
TSSR(RS) ,R1 
#SSR!SC!BIT3,R2 
R1,R2 


FATFLG 
ERRNO, T33WPW,PKTSSR 


T33BFR+10,R1 
R1,R 
#B1T1,R2 
R1,R2 


FATFLG 
ERRNO, T33UNC ,EXPREC 


110$ 
PC REWIND 
TSSR(RS) ,R1 


FATFLG 
ERRNO, T33RWN,PKTSSR 


T33BFR+6,R1 
R1.R 
#BIT1,R2 
R1,R2 


FATFLG 
ERRNO, T53B0T ,EXPREC 


T33CNU 
#20. ,R3 


sREADY FOR NEXT RECORD 
: ISSUE COMMAND 

sWAIT FOR SSR_TO SET 
sGET TSSR CONTEN:S 
sSET UP EXPECTED 

sARE THEY EQUAL 


ERROR COUNT 
zTSSR INCORRECT AFTER ~—— 


TR CSERHRD 
WORD 508 
«WORD T33WPW 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XST1 
SET UP EXPECTED 
2SET_ UNC ges" IN preety 
DOES EXP = REC'D 
3BR, IF EQUAL (OK) 
ERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
: TRAP CSERHRD 
WORD 509 
eWORD T33UNC 
«WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sDEC RECORD COUNTER 
BR, IF MORE RECORDS TO WRITE 
> ag TAPE REWIND COMMAND 
ZGET TSSR CONTENTS 
3GET PACKET ADDRESS 
ERROR COUNT 
REWIND NOT ACCEPTED 
TRAP CSERHRD 
WORD 510 
WORD T33RWN 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
2SET UP_EXPECTED 
SET BOT a IN sweeties 
DOES EXP = REC’ 
3BR, IF EQUAL (OK) 
zERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
RAP CSERHRD 
WORD 511 
«WORD T33B0T 
-WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


RAP 
sCLEAR DATA VALUE IN RECORD 
sRECORD SIZE 


SEQ 0202 





3328 054032 
29 054040 
30 054046 
31 054052 

054060 


AAAI AAAI AIAN 
BIKALAS 
SASASS 
FELLLF 
==50 

REeRS 


eeateatetesteateteatecteste 
™m 

oo 

ww 

ae 

_ 

-_ 

So 


3354 054154 
3355 054156 


054 
3365 054210 

054210 
3366 054212 
3367 054216 
3368 054222 
3369 054224 


0 
3375 054242 
3376 054244 


001002 
054724 


003116 o37ere 
140001 054670 
054670 

gponee 054676 
016330 


100210 


002214 


054602 
000002 


002214 


054602 
000400 


002214 


126700 
054720 


002214 


003116 054672 





155$: 


160$: 


170$: 


180$: 


182$: 


ERRHRD 


CKLOOP 
MOV 


I 16 
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FREE, T33RB 
#140001, T33PK3 
T33PK3_RG 

#20, 13882 

RG. TSDB(RS) 
TSSR(R5) ,R1 
#SSR'SC!BIT3.R2 
R1,R2 


FATFLG 
ERRNO, T33WDC ,PKTSSR 


133BFR+10,R1 
#B1T1,R2 
R1,R2 


FATFLG 
ERRNO, T33UND ,EXPREC 


T33BFR+10,R1 
R1,R 
#81T8,R2 
R1,R2 


FATFLG 
ERRNO, T335RBP ,EXPREC 


@FREE ,R1 
T33CNU,R2 
R1,R2 


FATFLG 
ERRNO, T33DTA, EXPREC 


FREE ,133WB 


sSTARTING WRITE BUFFER ADDRESS 

READ DATA,CVC=1,ACK COMMAND 

7SET UP R4 WITH PACKET ADDRESS 

SET UP RECORD SIZE IN PACKET 
COMMAND 


21S 

WAIT FOR SSR TO SET 
7GET TSSR CONTENTS 
SET UP EXPECTED 
sARE THEY EQUAL 


sERROR COUNT 
zTSSR INCORRECT AFTER WRITE DATA 


TRAP CSERHRD 
WORD 512 
WORD T33WOC 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XST1 
SET UP EXPECTED 
SET UNC aly IN.  wheioes 
;DOES EXP = REC' 
:BR, IF EQUAL (OK) 
zERROR COUNT 
sUNC BIT NOT” sei AFTER READ CMD. 
TRAP CSERHRD 
° 513 
«WORD T 
WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XST1 
sSET UP EXPECTED 
SET RBP ay IN EXPECTED 
DOES EXP = REC'D 
3BR, IF EQUAL a” 
sREAD BUS PARITY ERROR BIT NOT SET 
TRAP CSERHRD 
"GORD 514 
“WORD T33RBP 
«WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 
GET DATA READ 
2GET PATTERN 
3 ARE pg EQUAL 
ERROR COUNT 
sDATA NOT CORRECT 
TRAP CSERHRD 
WORD 515 
-WORD TS33DTA 
«WORD EXPREC 
LOOP IF SELECTED 
CSCLP1 


RAP 
sSTARTING WRITE BUFFER ADDRESS 


SEQ 0203 





Hag 054252 


54330 
3391 O20 335 
3392 054334 


054452 
3423 054454 


3424 054456 
3425 054460 


012737 
0 


eth 054670 195$: 


054670 
000024 054676 
000000 
016330 
000002 
100210 


002214 


190$: 


054602 
000002. 


002214 ~ 


200$: 


054602 
000400 


002214 


2108: 


126466 
054720 


002214 


215$: 


ERRHRD 


CKLOOP 





J 16 
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TEST 5S: DATA PARITY TEST 


Ab ae T33PK3 
#T33PK3,R4 


TSSR(RS),R 

psc | SSRIBIT3.R2 
R1,R2 

190$ 

FATFLG 

ERRNO, T33WDC ,PKTSSR 


T338FR+10,R1 
#BiT1,R2 
R1,R2 


FATFLG 
ERRNO, T33UND , EXPREC 


T33BFR+10,R1 
R1.R 
#B81T8,R2 
R1,R2 


FATFLG . 

ERRNO, T33RBP ,EXPREC 
@FREE,R1 

T33CNU,R2 

R1,R2 

FATFLG 

ERRNO, T33DTA, EXPREC 


R3,R 
#1,R 


sce REVERSE DATA RETRY,ACK COMMAND 


UP R4 WITH PACKET ADDRESS 


iSET UP RECORD SIZE IN PACKET 
OMMAND 


2 ISSUE C 

WAIT FOR SSR TO SET 
GET TSSR CONTENTS 

cout EXPECTED 


ARE THEY 
sBR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 516 
«WORD T33WDC 
-WORP PKTSSR 
;LOOP IF SELECTED 
TRA?’ CSCLP1 
sPICK UP XST1 
iSET UP EXPECTED 
sSET UNC BIT IN poeemee 
[DOES EXP = REC'D 
:BR, IF EQUAL (OK) 
sERROR COUNT 
sTAF& NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 517 
eWORD T33UND 
* D EXPREC 
;LOOP IF SELECTED 
TRAP CS$CLP1 
sPICK UP xSTO 
sSET UP EXPECTED 
SET RBP ay IN EXPECTED 
DOES EXP = REC'D 
:BR, IF EQUAL (OK) 
sERROR COUNT 
sREAD Bus PARITY ERROR ys LA a SET 
CSERHRD 
reono 518 
WORD T33RBP 
«WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
3GET DATA READ 
3GET PATTERN 
3ARE THEY EQUAL 
BR, IF OK 
sERROR COUNT 
sDATA NOT CORRECT 
TRAP CSERHRD 
-WORD 519 
eWORD T33DTA 
eWORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


zSAVE_R3 FOR A MOMENT 
SPACE FORWARD ONE RECORD 


4? 


SEF 


EEREEEE FERS 
SSBIRAE 


536 
054540 





004737 
aes 


003805 


010544 
054720 


054032 


002214 
017262 


016536 
053076 


000017 





2208: 


PC, SPACE 
R2.R3 
I SCNU 


2208 
155$ 


FATFLG,#15. 
999$ 


PC ,CKDROP 


PC,TSTLOOP 
230$ 
T33LO00P 
TST 


K 16 
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TEST 5: DATA PARITY TEST 


eCALL orn 


;RESTORE R3 
BUMP TO NEXT RECORD NUMBER 
UMP COUNTER 


38 
BR, IF DONE 
BR, IF NOT DONE YET 


BRKRKKKKK KKK END SUBTEST >>>>>>>>>>>> 
L10060: 


TRAP C$ESUB 
sas ERROR COUNT AT 25 
IF LESS THAN 25 
TRY TO DROP THE UNIT 


:D0 WE NEED TO ITERATE TEST 
;BR, IF NO LOOP REQUIRED 


EXECUTE AGAIN 

ALL DONE THIS TEST 
TRAP 
- WORD 


CSEXIT 
L10057- 


SEQ 0205 


PEA Antari 
WONAULSWNO 

oooo 
EEEEF 
RSS 


7 
3463 054572 
3464 


99 054706 
3500 054710 
3501 054712 
$205 054714 


3504 

oe 054716 
3506 054720 
Seon 054722 


054550 
100004 
054560 
000000 
000012 
054572 
000000 
000024 
000000 
000000 


054660 
100006 
054 


100205 
100605 
102205 
177777 


000000 
000000 
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TEST 5S: DATA PARITY TEST 


:LOCAL STORAGE FOR THIS TEST 


=<.+10>8177770 


—— . 
.WO 100004 
WORD T33DATA 
~ WORD 0 
WORD 10. 
T33DATA: 
-WORD T338FR 
-WORD 0 
» WORD 20. 
WORD 0 


T33DSW: .WORD 0 
T33BFR: .BLKW 25. 


[WRITE SUBSYSTEM MEMORY COMMAND PACKET 


-=<.+10>8177770 


-WORD 100006 
«WORD wre 


T33PK2: 


» WORD 
-WORD 6. 
T33PK3: 
-WORD 100005 
T33RB8: 
T33WB: .WORD FREE 
eWORD 0O 
T33SZ: .WORD 0 
EVEN 
T338F 2: 
T338S0: .BYTE 
T338S1: .8 200 
T33S2: .WOR 
T3383: .WORD 


:TAPE MOTION PACKET COMMAND VALUES 


T33RN: .WORD 100205 
T33WDR: .WORD 100605 
T33CON: .WORD 102205 


T33CNT: » WORD 
T33CNU: 
T33DLY: .WO 





COMMAND PACKET FOR fae 
WRITE CHARACTERISTICS C 


D, 
ADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE 0 
MESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, 
sADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


REREAD COMMAND, AND ACK 


ADDRESS OF WRITE BUFFER 
SIZE OF BUFFER (EXTENT) 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 
sDATA AREA 


sREREAD DATA (NEXT) 
REREAD DATA RETRY 
WRITE CONTINOUS 
sEND OF DATA 


TAPE TIMER COUNTER STORAGE AREA 
zTAPE TIMER COUNTER STORAGE AREA 
DELAY COUNTER 





SEQ 0206 


WITH , ACK 


AND ACK 


B 
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TEST 5S: DATA PARITY TEST 


SEQ 0207 


*Read Bus Parity Bit Not Set (XST1), Should Be’ 

*TSSR Incorrect After Wrong Parity Write Command’ 

"UNC Bit (XST1) Not Set After Wrong Por ity WRITE Command’ 
"UNC Bit (XST1) Not Set ah Ae — a READ Command‘ 


D Not Accepted’ 


"Tape Not At BOT After REWIND. Bate (BOT Not Set In XSTG)* 
‘Rewind (POSITION) Command Not may tee 2 
*TSSR Not Correct After READ Wrong 


arity Command’ 


"Data ere Error, Data Read From Tape Not Equal Te Written’ 


ROUTINE TO RESTORE COMMAND A i TO START-UP (DEFAULT) VALUES 


4 ort} THE REGISTERS 

ART OF THE PACKET 
cURITE SUBSYSTEM MEM. WITH ACK, 
ADDRESS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADORESS 
;SIZE OF DATA BLCCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


SELECT DRIVE ZERO 
ER OF LOCATIONS TO BE CLEARED 
het hiatien BUFFER 


LOOP YET 
ZKEEP. 6 GOING UNTIL DONE 


Ht THE REGISTERS 

START OF THE PACKET 

:WRITE SUBSYSTEM MEM. WITH ACK, 
ADDRESS 4 anare BLOCK 

SEXTENDED A DRESS 

SIZE OF DATA BLOCK IN BYTES 


POINT TO DATA SEL AREA 


:RETURN 


$510 
511 3+ 
a21§ sLOCAL TEXT MESSAGES FOR TEST 
3514 
» 3515 
3516 054724 122 145 141 T33RBP: .ASCIZ 
3517 05500 124 123 123 T33WPW: .ASCIZ 
3518 05506 125 116 103 T33UNC: .ASCIZ 
3519 05515 125 116 103 T33UND: .ASCIZ 
| ze50 Seas! 127 122 111 T33SSR: .ASCIZ "WRITE MISSCELLANEOUS CONT/ 
3521 055325 124 141 160 T3380T: .ASCIZ 
3256 055420 122 145 167 T33RWN: .ASCIZ 
35235 055467 124 123 123 T33WDC: eASCIZ 
3526 055550 104 141 164 TS335DTA: .ASCIZ 
3525 055645 104 141 164 1813300: eASCIZ ata Parity 
3526 EVEN 
3527 i+ 
3528 
3529 
sean WRITE SUBSYSTEM MEMORY C 
3532 = 
3533 
3534 055662 T33REST: 
3535 055662 SAVREG 
3536 055666 012701 054550 MOV #T33PACKET,R1 
3537 055672 012721 100004 MOV #100004, (Ri)+ 
3538 055676 012721 054560 MOV #T33DATA, (R1)+ 
3539 055702 005021 CLR (R1)+ 
3540 055704 012721 000012 MOV #10.,(R 
3541 055710 012721 054572 MOV ar3sérR, Re 
3268 055714 005021 CLR 
3543 055716 012721 000024 MOV $30. (RI)* 
3544 055722 005021 CLR (R1)+ 
3545 055724 012711 000000 MOV #0,(R1) 
3546 055730 012702 000030 MOV #24. ,R2 
3547 055734 012762 177777 054572 64$: MOV #177777, T33BFR(R2) 
3548 055742 005742 TST -(R2) 
3549 055744 022702 000000 CMP #0,R2 
3550 055750 001371 BNE 64$ 
3551 055752 000207 RTS PC 
3552 
3553 
3554 055754 T33RT2: 
3555 055754 SAVREG 
3556 055760 012701 054660 MOV #T33PK2,R1 
3557 055764 012721 100006 MOV #100006, (R1)+ 
3558 055770 012721 054700 MOV oT sere. (R1)+ 
3559 055774 005021 CLR (R1)+ 
3560 055776 012721 000006 MOV WG. «(RID 
3561 056002 005021 CLR (R1 
4 056 0127 054700 MOV #iS30F2.R1 
3563 056010 005021 CLR (R1)+ 
3564 056012 005011 CLR (R1) 
3565 056014 000207 RTS PC 
3566 056016 T33RT3: 


tet 





ee EP Ce Oe ee 





C 
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TEST 5: DATA PARITY TEST SEQ 0208 
426! 83 056016 SAVREG sSAVE REGISTERS 
pero 054670 MOV it | pam ise! UP gly ADDRESS 
3570 056030 005021 CLR (R1)+ ADDRESS oF oseee BLOCK 
3571 056032 005021 CLR (R1)+ + Hf DRES 
3572 056034 005011 CLR (R1) SIZE OF DATA TRANSFER BLOCK 
73 056036 000207 RTS PC TRETURN 

3574 056040 ENDTST 

056040 L10057: 


056040 104401 TRAP CSETST 


TEST 1 = HARDWARE TEST 1 


TEST 6: OPERATIONS AT EOT 


3589 056042 
5604 
3590 056042 
3595 056050 
3596 056054 
3597 056060 
3598 056066 


3609 


spietatutatatutatatatyts 
SCVONOUSWR—O 


3630 


RLERKRR 
SARAYS 


D 
i TEST MACRO M1113 25-MAY~82 08:43 PAGE 1i8 


006354 002172 
063207 


016570 
000005 002210 
060672 


SEQ 0209 
-SBTTL TEST 6: OPERATIONS AT EOT 


i+ 
;THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


[THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 


BGNTST 


MOV #EPRT1,EPRTSW 


T6:: 
sPRIMARY ERROR MESSAGE 
MOV #TS 1341D, RO 


ASCII MESSAGE TO IDENTIFY TEST 
TEST SETUP 


JSR PC, TSTSETUP 3D0 INITIAL 
MOV #5 ,LOOPCNT sPERFORM 5 ITERATIONS 
CLR T34CNT CLEAR TAPE RECORD COUNTER 


+ 


[TEST 6, SUBTEST 1 


THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY 
ie panpaoae. TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 


1. THE TAPE IS REWOUND. 


2. WRITE DATA COMMANDS ARE REPEATEDLY a UNTIL TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOT=1. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA. 


3. ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS hg 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1 


A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
Co Ae Bigg STATUS ALERT TERMINATION OCCURS, WITH 


6. A SPACE ae ar COMMAND, WITH A RECORD COUNT OF 
Ve D IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION Occurs. WITH EOT=1 AND TMK=1. 


7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


Se Se Be Se Be Se Fe Be Ge Ge Fe Be Se Ge Se Ge Ge Fe Ge Se Be Be Ge Be Se Be Be Be Be Be Ge Se Be Be Be 
s 


un 


4 





TEST 1 = HARDWARE TEST 


TEST 6: OPERATIONS AT EOT 


1 
3662 056072 


9. 


10. 


11. A 


12 


13 


Be Se Se Se Be Se Se Be Se Ge Ge Se Se Se Be Ge Fe Ge Ge Se Se Se Se Se 
_ 


T34LO0P: 


e Y 
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A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 


A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 


A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
3, 1S ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=0. 


A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 


A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH 
SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
gotst) ae Ribs. TERMINATION OCCURS, WITH EOT=0, 


SEQ 0210 


05 
3706 Ores 
3707 056214 
3708 056222 


TEST 1 = HARDWARE TEST 
TEST 6: OPERATIONS AT EOT 


seosaes 


—M— 


1 
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063324 
176750 
016054 


060674 


000250 
002116 
177772 
177756 


000002 
000200 


060674 
002214 


002174 060560 
000040 060560 


+ 


:TEST 6, SUBTEST 1 


VERIFIES THAT WRITING OVER THE END-OF-TAPE (EOT) 
;MARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
: TAPE TRANSPORT thee ae cous ze i. EOT sine Th tes 


MUST BE 
MANUALLY PLACED BACK _ TO BE USABLE. THIS IS A 
; FATAL DIAGNOSTIC ERROR 


TRAP 
JSR PC, T34REST :SET COMMAND PACKET 
JSR PC, T34RT3 RESTORE PACKET 
JSR PC, T34RT2 SET UP OTHER COMMAND PACKET 


MOV w5000; T0011 :SET UP COUNTER 
10$: JSR PC, [D0 INITIALIZE ON CONTROLLER 
BCS S08 ‘BR IF INIT WAS OK 
DELAY 250 *DELAY A WHILE 
MOV 
WORD 
MOV 
WORD 
DEC 
BNE 
DEC 
BNE 
MOV TSSR(RS),R1 :GET TSSR STATUS 
BIT #SSR,R1 [CHECK FOR SSR SET 
BNE 20$ ‘BR, WHEN SSR IS SET 
DEC T34DLY [BUMP COUNTER DOWN 
BNE 10$ 7BR, IF MORE DELAY REQUIRED 
INC FATFLG ER T 
V RO,R1 :CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR, SFIMSG ‘FATAL ERROR TSSR WAS NOT Ok 
WORD 
WORD 
WORD 
20$:  CKLOOP :LOOP IF SELECTED 
TRAP 


MOV UNITN, T34DSW 


SET UP DRIVE 
BIS #B1TS,134DSW 


NUMBER 
:TURN ON HIGei SPEED TO SAVE TIME 


SEQ 0211 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


C$B8SUB 


#250, (PC)+ 
LSDLY, (PC)+ 
o6cPe) 
-22(P¢) 

20 


CSERDF 
601 

SFIERR 
SF IMSG 


CSCLP1 


site ol 


G1 
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TEST 6: OPERATIONS AT EOT SEQ 0212 
3709 056230 012704 060540 MOV #T34PACKET,RG : SUBROUTINE NEEDS PACKET ADDRESS 
3710 056234 004737 010742 JSR PC ,WRTCHR TISSUE WRITE CHARACTERISTICS 
3711 056240 103407 BCS 30$ 78R, IF COMMAND ISSUED OK 
3712 056242 005237 002214 INC FATFLG OR COUNT 
3716 056246 010001 MOV RO,R1 ZSAVE CONTENT TSSR 
3717 056250 ERRHRD ERRNO,WRTMSG, SF IMSG WRITE ONARACTERIST Ic FAILED 
056250 104456 CSERHRD 
056252 001132 rEORD 602 
056254 005052 “WORD WRTMSG 
056256 012114 “WORD  SFIMSG 
3718 056260 30$:  CKLOOP ;LOOP IF SELECTED 
056260 104406 TRAP  C$CLP1 
3719 056262 004737 011074 JSR PC REWIND : REWIND CALL 
3720 056266 103411 BCS LE TSSR IS OK (GOOD) 
3721 056270 016501 000002 MOV TSSR(RS) RI TSSR 
3722 056274 010004 MOV RO,R4 tSET UP PACKET 
3723 056276 005237 002214 INC FATFLG ZERROR COUNT 
3727 056302 ERRHRD ERRNO, T34RWN,PKTSSR :TSSR IS" INCORREC? AFTER REWIND 
056302 104456 TRAP  CSERHRD 
001133 «WORD 603 
062337 “WORD  T34RWN 
056310 012126 “WORD PKTSSR 
3728 056312 35$:  CKLOOP ;LOOP IF SELECTED 
056312 104406 TRAP — C$CLP1 
3729 056314 012737 140005 060660 MOV #140005, T34PK3 WRITE | DATA. ACK, cvcat 
3730 056322 012703 176750 MOV #65000, /R3 X NUMBER OF WR 
3731 056326 013737 003116 060662 MOV FREE, T34WB SFT UP WRITE BUFFER ADDRESS 
3732 056334 012737 006654 060666 MOV #3500. 134SZ [SET UP BUFFER SIZE (4K BYTES) 
3733 056342 012704 060660 MOV 4PK3,R4 :R4 = POINTER TO PACKET 
3734 056346 010465 000000 40$: MOV a Tenbine) TISSUE COMMAND 
3735 056352 004737 016330 JSR PC. WAITF ‘WAIT FOR SSR TO SET 
3736 056356 016501 000002 MOV TSSR(RS),R1 'GET TSSR CONTENTS 
3737 056362 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
3738 056366 020102 CMP R1,R2 SARE THEY EQUAL 
3739 056370 001010 BNE 50$ BR, IT MIGHT BE END OF TAPE 
3740 056372 005303 DEC R3 [DEC RECORD COUNTER 
3741 056374 001364 BNE 40$ BR, IF MORE TO GO 
3742 056376 005237 002214 INC FATFLG ZERROR COUNT 
3746 056402 ERRDF ERRNO, T34ET.PKTSSR ZEOT NOT FOUND (USE SHORTER TAPE?) 
056402 104455 CSERDF 
056404 001134 TOORD 604 
056406 062116 “WORD T34ET 
056410 012126 “WORD PKTSSR 
3747 056412 032701 000004 50$: BIT #B1T2,R1 :CHECK FOR TAPE STATUS ALERT 
3748 056416 001001 BNE 60$ :BR, IF SET 
3749 056420 000752 BR 40$ [KEEP GOING 
3750 056422 013701 060570 60$: MOV T34BFR+6,R1 :PICK UP XSTO 
3751 056426 010102 MOV R1,R2 :SET UP EXPECTED 
3752 056430 052702 000001 BIS #BITO,R2 SET THE EOT BIT ON IN EXPECTED 
3753 056434 020102 CMP R1,R2 [WAS THE BIT ON 
3754 056436 001402 BEQ 80$ :BR, IF EOT WAS FOUND 
3755 056440 000137 056346 JMP 40$ [KEEP LOOKING 
3756 056444 80$:  CKLOOP [LOOP IF SELECTED 
056444 104406 TRAP — CS$CLP1 
757 056446 012737 140005 060660 MOV #140005 T34PK3 :WRITE DATA, ACK, CVC=1 
3758 056454 013737 003116 060662 MOV REE, 134WB [SET UP WRITE BUFFER ADDRESS 
3759 056462 012737 006654 060666 MOV #3500. T3082 :SET UP BUFFER SIZE (4k BYTES) 


ol 


~ 


| 


_ TEST 6: OPERATIONS A 


3760 056470 


3766 51 
3767 056520 
3771 056524 
056524 
056526 
056530 
056532 
3772 056534 
3773 056536 


3782 056560 
6560 
056562 
056564 
056566 

3783 056570 
056570 

3784 056572 
3785 056600 
3786 056604 
3787 056610 
3788 056614 


056676 
3808 056700 
056700 


Cen eee 


— OoOooooe 
+4 oon 
ANIA 


238 


Ss NOWW WwW 


015554 
104406 


060660 


100204 


002214 


060570 
000001 


002214 


140011 
0 


002214 


060570 
000001 


002214 


060660 


90$: 


100$: 


110$: 


120$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 
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#T34PK3,R4 
Pen -TSDB(RS) 
TSERCRS), R1 
#SC!SSR'BIT2,R2 
R1,R2 


FATFLG 
ERRNO, T34ET2,PKTSSR 


T34BFR+6,R1 
R1 


FATFLG 
ERRNO, T34ETN,EXPREC 


#140011, T34PK3 
#T34PK3,R4 

R4, TSDB(RS) 

PC ,WAITF 
TSSR(R5) RI 
#SC!SSR!BIT2,R2 
R1,R2 


FATFLG 
ERRNO, T34WTM,PKTSSR 


T34BFR+6,R1 

R1,R 

#B1T0,R2 
1,R2 


FATFLG 
ERRNO, T34ETO,EXPREC 


eR4 a tasetae TO PACKET 
;WAIT FOR SSR_TO we 


ERROR COUNT 
WRITE TAPE AT EOT FAILED bs SET TSA 


TRA CSERHRD 

WORD 605 

WORD T34ET2 

-WORD PKTSSR 
LOOP IF SELECTED 

TRAP C$CLP1 


zPICK UP XSTO 
:SET UP EXPECTED 
7SET THE EOT BIT ON IN EXPECTED 
:WAS THE BIT ON 
R, IF EOT WAS FOUND 


ERROR COUNT 
;EOT BIT (XSTO) NOT SET 


TRAP CSERHRD 
«WORD 606 
WORD T34ETN 
«WORD EXPREC 


LOOP IF SELECTED 
CS$CLP1 


TRA 
sWRITE TAPE MARK, ACK, eves 4 COMMAND 
iR4 sa tanta TO PACKET 


BR, IF STATUS. IS GOOD (OK) 
ERROR COUNT 
;EOT NOT FOUND (USE —, TAPE?) 


CSERHRD 
GORD 607 
WORD T34WTM 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CS$CLP1 


zPICK UP XSTO 

At! UP_EXPECTED 

3SET we EOT Bit ON IN EXPECTED 
WAS THE BIT OM 

BR, IF EOT WAS FOUND 


ERROR COUNT 
sEOT BIT (XSTO) NOT SET ‘ 


AP CSERHRD 
-WORD 608 
-WORD T34ETO 
WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


SEQ 0213 


ma 7 


wo 
oo 


BARR RG BRE 
NONOUEWI-O 


14 
3834 057016 
7016 


333 


WOUIFwWwh-0 O@N 


57104 


eau 


57124 
7 


- 


Ww 


NMNoOfe: 
oo-an wv 


001406 
005237 


104456 
poate 


104456 


001744 © 


060714 


141410 
000001 
000000 
016330 
000002 
000200 


002214 


060570 
000001 


002214 


060570 
100000 


002214 


140410 


100204 


002214 


060660 
060662 


060660 
060662 


130$: 


140$: 


150$: 


ERRHRD 


CKLOOP 


INC 
ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


ERRHRD 
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#161610, T34PK3 
#1,734WB 

aTSaPRS RG 

R4, TSDB(RS) 

PC WAITF 


TSSR(RS) RI 
#SSR R2 

Rd 
*308 


FATFLG 
ERRNO, T34STM,PKTSSR 


T34BFR+6, R1 

R1,R2 

#BITO,RZ 
R1,R2 

ros 


FATFLG 
ERRNC , T34E TN, EXPREC 


T34BFR+6,R1 
R1 


FATFLG 
ERRNO, T34TMK ,EXPREC 


hae Vee 2 134PK3 


A bay R4 
R4,TSDB(RS) 
PC.WAITF 
TSSR(R5S),R1 
#SC!SSR'BIT2,R2 
R1,R2 


160$ 
FATFLG 
ERRNO, T34P0S,PKTSSR 


SEQ 0214 


# SKIP TAPE MARK REVERSE 10 sf CvC=1 COMMAND 
NUMBER (1) OF O SKIP 


TMS T 
iB = POINTER TO PACKET 


U 
WA IT_FOR N teenie aor SET 


EQUAL 
R, IF STATUS. IS GOOD (0K) 


: ERR 

SKIP TAPE MARK REV. DIDN'T SET 
TRAP 
«WORD 
«WORD 
«WORD 

;LOOP IF SELECTED : 
TRAP 


:PICK UP XSTO 

SET UP EXPECTED 

SET THE EOT BIT ON IN EXPECTED 
WAS THE BIT ON 

;BR, IF EOT WAS FOUND 


ERROR COUNT 
sEOT BIT (XSTO) NOT SET 
TRAP 
«WORD 
- WORD 
- WORD 


TRAP 


:LOOP IF SELECTED 


zPICK UP XSTO 

SET UP EXPECTED 

SET THE TMK BIT ON IW EXPECTED 
WAS THE BIT ON 

:BR, IF TMK WAS FOUND 


ERROR COUNT 
sEOT BIT (XSTO) NOT SET 


LOOP IF SELECTED 


TSA 
CSERHRD 
609 
T34STM 
PKTSSR 


CS$CLP1 


CSERHRD 
610 


T34ETN 
EXPREC 


CSCLP1 


CSERHRD 
611 
T34TMK 
EXPREC 


CS$CLP1 


RAP 
SPACE RECORDS REVERSE, kee CvC=1 CMD 


+ SPACE ONE RECORD REVER 
:R4 = POINTER TO PACKET 


UE COMMAND 
WAIT FOR SSR TO SET 
CONTENTS 
PECTED 


Y EQUAL 
IT et o OF TAPE 


;ERRO 
sEOT NOT FOUND (USE TS TAPE?) 
RAP % 


TTORD 
-WORD 


T34P0S 


ont 


057132 
3860 057134 
7134 


57166 
3871 057170 
7170 
3872 057172 


3903 057326 
7326 


3904 057330 
3905 057336 
5906 057344 
3907 057350 


012126 


015554 
104406 


104456 
001147 


060714 
012126 


060570 
000001 


002214 


060570 
100000 


002214 


140410 


2 
000200 


002214 
060570 
000001 


140010 


60 
000000 


060660 
060662 


060660 
060662 


160$: 


163$: 


165$: 


167$: 


170$: 
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CKLOOP 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


INC 
ERRHRD 


CKLOOP 


J 1 
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T34BFR+6,R1 
R1,R 
#BITO,R2 
R1,R2 


FATFLG 
ERRNO, T34E TN, EXPREC 


T34BFR+6,R1 
R1.R 
#Bitis. R2 
1,R2 
; 65$ 
FATFLG 
ERRNO, 134 TMK, EXPREC 


#140410, 134PK3 
#1 it ns 


#T34PK3,R 
R4, TspBing) 
PC WAITF 


TSERCRS), R1 
#SSR R2 
R2 
Nahe 
FATFLG 
ERRNO, T34P0S,PKTSSR 


T34BFR+6,R1 
#BITO,R2 © 
R1,R2 
170$ 


#140010, T34PK3 
{4 it MB 


+TSuP 
R4, rsetns) 


- WORD 
TRAP 


PKTSSR 
C$CLP1 


sLOOP IF SELECTED 


sPICK UP _XxSTO 

sSET UP EXPECTED 

SET THE EOT My ON IN EXPECTED 
{WAS THE BIT 


sERROR COUNT 
sEOT BIT (XSTO) NO’ SET 


TRAP CSERHRD 

«WORD 613 

«WORD T34ETN 

«WORD EXPREC 
;LOOP IF SELECTED 

TRAP CSCLP1 


zPICK UP XSTO 

:SET UP_EXPECTED 

CLEAR THE TMK BIT ON IN EXPECTED 
WAS THE BIT ON 

BR, iF TMK WAS FOUND 


ERROR COUNT 
sEOT BIT (XSTO) NOT SET 


TRAP CSERHRD 
-WORD 614 
WORD T34TMK 
«WORD EXPREC 


LOOP IF SELECTED 

TRA C$CLP1 
SPACE RECORDS REVERSE, ACK. CvC=1 CMD 
:SPACE ONE RECORD REVERSE 
iM goo PACKET 


s ISSUE COMMAN' 
WAIT FOR SSR TO SET 


UAL 
2BR, IT MIGHT BE END OF TAPE 
zERROR COUNT 
;EOT NOT FOUND (USE some TAPE?) 


CSERHRD 
ORD 615 
-WORD T34PO0S 
«WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
3PICK UP_XSTO 
SET UP_EX 


PECTED 
SCLEAR THE EOT ON IN EXPECTED 
WAS THE BIT OFF 
BR, IF EOT WAS FOUND 
LOOP IF SELECTED 

CSCLP1 


TRAP 
SPACE Se §: FORWARD, ACK, CVC=1 
:R4 = POINTER TO PACKET 

ISSUE COMMAND 


SEQ 0215 


7 Nena? 


~ 
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TEST 6: OPERATIONS AT E SEQ 0216 

3908 057354 064737 016330 JSR PC,WAITF :WAIT FOR SSR TO SET 

3909 057360 016501 000002 MOV TSSR(R5),R1 SGET TSSR CONTENTS 
057364 012702 000200 MOV #SSR,R2 [SET UP EXPECTED 

3911 057370 020102 CMP R1,R2 SARE THEY EQUAL 

3912 057372 001406 BEQ 190$ ‘BR, IT MIGHT BE END OF TAPE 

3913 057374 005237 002214 INC FATFLG sERROR COUNT 

3917 057400 ERRHRD ERRNO,1T34POS,PKTSSR zEOT NOT FOUND (USE SHORTER TAPE?) 
057400 104456 TRAP C$ERHRD 
057402 001150 .WORD 616 
057404 060714 “WORD  T34P0S 
057406 012126 "WORD PKTSSR 

3918 057410 190$:  CKLOOP :LOOP IF SELECTED 

57410 104406 TRAP  C$CLP1 

3919 057412 013701 060570 MOV T34BFR+6,R1 :PICK UP XSTO 

3920 057416 010102 MOV R1,R2 ‘SET UP EXPECTED 

3921 057420 052702 000001 BIS #BITO,R2 [SET THE EOT BIT ON IN EXPECTED 

3922 057424 020102 CMP R1,R2 ‘WAS THE BIT ON 

3923 057426 001406 BEQ ‘88, IF EOT WAS FOUND 

3924 057430 005237 002214 INC FATFLG ZERROR COUNT 

3928 057434 ERRHRD ERRNO, T34ETS,EXPREC ZEOT BIT (XSTO) NOT SET 
057434 104456 TRAP  CSERHRD 
057436 001151 .WORD 617 
057440 061530 “WORD T34ETS 
057442 015554 “WORD EXPREC 

3929 057444 200$:  CKLOOP sLOOP IF SELECTED 
057444 104406 TRAP _—CSCLP1 

3930 057446 012737 140401 060660 MOV #160601, 134PK3 ZREAD REVERSE, ACK, CVC=1 

3931 057454 013737 003116 060662 MOV FREE ,T34RB 3SET UP WRITE BUFFER ADDRESS 

3932 057462 012704 060660 MOV #T34PK3,R4 R4 = POINTER TO PACKET 

3933 057466 010465 000000 MOV R4,TSDB(RS) SISSUE COMMAND 

3934 057472 004737 016330 JSR PC.WAITF [WAIT FOR SSR TO SET 

3935 057476 616501 000002 MOV TSSR(R5) RI [GET TSSR CONTENTS 

3936 057502 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

3937 057506 020102 CMP R1,R2 TARE THEY EQUAL 

3938 057510 001406 BEQ 205$ ‘BR, ONLY SSR IS SET 

3939 057512 005237 002214 INC FATFLG ZERROR COUNT 

3943 057516 ERRHRD ERRNO, T34RRE,PKTSSR :EOT NCT FOUND (USE SHORTER TAPE?) 
057516 + 104456 CSERHRD 
057520 001152 TeORD 618 
057522 061066 . “WORD  T34RRE 
057524 012126 “WORD PKTSSR 

3944 057526 205$:  CKLOOP :LOOP IF SELECTED 
057526 104406 TRAP  C$CLP1 

3945 057530 012737 140401 060660 MOV #140401, 134PK3 :READ REVERSE, ACK, CVC=1 

946 057536 013737 003116 060662 MOV FREE, 1 34R8 [SET UP WRITE BUFFER ADDRESS 

3967 657544 012705 060660 MCV #T34PK3,R TRS = POINTER TO PACKET 

3948 057550 010465 000000 MOV Ra Tspatns) TISSUE C 

3949 057554 004737 016330 JSR PC. WAITF [WAIT FOR ss SSR TO SET 

3950 057560 016501 000002 MOV TSSR(R5S),R1 “GET TSSR CONTENTS 

3951 057564 012702 000200 MOV #SSR,R2 SSET UP EXPECTED 

3952 057576 020102 CMP R1,R2 TARE THEY EQU 

3953 057572 001406 BEQ 210$ :BR, IT MIGHT ABE END OF TAPE 

3954 057574 005237 002214 INC FATFLG ZERROR COUNT 

3958 057600 ERRHRD ERRNO, T34RRE,PKTSSR :EOT NOT FOUND (USE SHORTER TAPE?) 
057600 104456 RAP CSERHRD 
057602 001153 TOORD 619 
057604 061066 “WORD T34RRE 


BT ee ew as PA ah ere rede See ea a se 


ee 


————— 
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BUS eee dee cee ae eo 


7606 
3959 057610 
610 


3969 057662 
3970 


76 

3975 057700 
7700 

3976 057702 


057766 

3991 057770 
57770 

3992 057772 
3993 057776 
3994 060000 


4006 6 
4007 060052 


012126 


001406 
005237 
104456 
001154 


061066 
012126 


6 
005237 


104456 
001155 


061066 
012126 


210$: CKLOOP 
140001 060660 MOV 
003116 060662 MOV 
006654 060666 MOV 
060660 MOV 
000000 MOV 
016330 JSR 
000002 MOV 
000200 MOV 
CMP 
BEQ 
002214 INC 
ERRHRD 
230$: §CKLOOP 
140001 060660 MOV 
003116 060662 MOV 
006654 666 MOV 
060660 MOV 
000000 MOV 
016336 JSR 
000002 MOV 
000200 MOV 
CMP 
BEQ 
002214 INC 
ERRHRD 
235$: CKLOOP 
060570 MOV 
MOV 
000001 BIS 
CMP 
BEQ 
002214 INC 
ERRHRD 
240$: CKLOOP 
140410 060660 MOV 
000005 060662 MOV 
060660 MOV 
000000 MOV 
016330 JSR 


#140001, 134PK3 

FREE, T34RB 

#3500. 13282 
#T34PK3,RG 

Ra TSDB(RS) 

PC,WA 


C.WAITF 
TSSR(RS),R1 
#SSR,R2 
R1,R2 
230$ 


FATFLG 
ERRNO, T34RRE ,PKTSSR 


#140001, 134PK3 
FREE, T34RB 
#3500. gh 3482 
R4, TSDB(RS) 
PC ,WAITF 
TSSR(RS), R1 
#SSRAR 


ni ne 


ERRNO T34RRE ,PKTSSR 


T34BFR+6,R1 

R1.R 

#BITO,R2 

R1,R2 

240$ 

FATFLG 

ERRNO, 134ETZ,EXPREC 


#140410, T34PK3 
#5,134RB 


+ SaPKS R4 
R4, TSDB(RS) 
PC. WAITF 


sLOOP IF SELECTED 
sREAD DATA, ACK, CVC=1 


PKTSSR 
CSCLP1 


- WORD 
TRAP 


SET UP WRITE BUFFER ADDRESS 
SET UP BUFFER SIZE (4k BYTES) 


iR4 A gene TO PACKET 


2 1SSU 
:WAIT oon = a SET 


EQU 
R, IT RIGHT Ge END OF TAPE 
s;EOT NOT FOUND (USE wma TAPE?) 


sLOOP IF SELECTED 


zREAD DATA, ACK, CVC=1 

SET UP WRITE BUFFER ADDRESS 
SET UP BUFFER SIZE (4K BYTES) 
zR4 = POINTER TO PACKET 


CSERHRD 
TORO 620 
“WORD T34RRE 
«WORD PKTSSR 


TRAP CSCLP1 


UAL 
2BR, IT MIRROR e oo OF TAPE 
:EOT NOT FOUND (USE "SHORTER TAPE?) 


LOOP IF SELECTED 


zPICK UP XSTO 
SET UP EXPECTED 

SET THE EOT BIT ON IN EXPECTED 
WAS THE BIT ON 

:BR, IF EOT _ FOUND 


: COUNT 
sEOT BIT (XSTO) NOT SET 


zLOOP IF SELECTED 


CSERHRD 
ORD 621 
WORD  T34RRE 
-WORD PKTSSR 


TRAP CSCLP1 


TRAP CSERHRD 
-WORD 622 
~WORD T34ETZ 
WORD EXPREC 


CSCLP1 


TRA 
; SPACE RECORDS ~ os oF co AtK. CvC=1 CMD. 


sNUMBER OF RECORDS T 


R4 = POINTER TO PACKET 


: ISSUE COMMAND 
WAIT FOR SSR TO SET 


SEQ 0217 


=i 


4 
~nm 
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4008 060056 
4009 060062 
4010 060066 
4011 060070 
4012 060072 
4016 060076 
0074 

100 

000102 

104 

4017 060106 
106 

4018 060110 


4027 060132 
132 


140 
4028 060142 
142 
4029 060144 


4043 060294 
4044 060096 


4049 060244 
244 
4050 060246 


4057 060310 


016501 


005237 
104456 
0 


000002 
000200 


002214 


060570 
000001 


002214 


140010 


000200 


002214 


060570 
000001 


141410 


2 
000200 


060660 
060662 


060660 
060662 


060674 


ERRHRD 


250$: CKLOOP 


2608: 


ERRHRD 


2708: 


CKLOOP 


280$: 


285$: 
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TSSR(RS),R1 
#SSR,R2 
1,R2 
50$ 


FATFLG 
ERRNO, T34P0S ,PKTSSR 


T34BFR+6,R1 
R1,R 
#BITO,R2 
R1,R2 


FATFLG 
ERRNO, T34ETC ,EXPREC 


#140010, T34PK3 
#5,134RB 


*TSaPKS. RG 
R4, TSDB(RS) 


PC. W AITF 
TSSR(RS),R1 
#SSR,R2 
1,R2 

70$ 


FATFLG 
ERRNO, T34ET,PKTSSR 


T34BFR+6,R1 
R1,R 
#B1T0,R2 
R1,R2 


A? T34PK3 
#3,134RB 


GET TSSR CONTENTS 

7SET UP EXPECTED 

sARE THEY EQUAL 

:BR, IT MIGHT yh: OF TAPE 


ERROR COUN 
POSITION COMMAND DIDN'T WORK 


sLOOP IF SELECTED 


sPICK UP XSTO 
:SET UP_EX 


WAS 
BR, IF EOT WAS FOUND 


ERROR COUNT 
sEOT BIT (XSTO) NOT CLEAR 


LOOP IF SELECTED 


TRA 
SPACE RECORDS FORWARD, ACK. Cvc=1 
;NUMBER 0 


F RECORDS TO SPACE 
3R4 va’ theeaie TO PACKET 


iWAIT FOR SSR _TO SET 


AL 
:BR, IT MIGHT BE END OF TAPE 
R_ COUNT 


zERRO 
3TSSR NOT CORRECT 


TRAP 
«WORD 
- WORD 
- WORD 
:LOOP IF SELECTED 
TRAP 
zPICK UP XSTO 
SET UP EX 


PECTED 
;SET THE EOT BIT ON IN EXPECTED 
BIT OM 


WAS THE 
BR, IF EOT WAS FOUND 
LOOP IF SELECTED 


CSERHRD 
23 


6 
T34P0S 
PKTSSR 


CSCLP1 


PECTED 
CLEAR THE EOT BIT ON IN EXPECTED 
THE BIT ON 


CSERHRD 
624 
T34ETC 
EXPREC 


+ P1 
CMD. 


CSERHRD 
625 
T34ET 
PKTSSR 


CSCLP1 


CSCLP1 


SEQ 0218 


SKIP FILE one REVERSE, TACK. CVC=1 COMMAND 


;NUMBER OF F 
3R4 = POINTER TO PACKET 
31S SUE COMMAND 


SET UP DELAY COUNTER 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
CHECK FOR SSR SET 


a4 


rc 


i 
i 
; 
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4058 060314 
4059 peneie 
060316 


4070 Oe03re 
060372 


060374 
060376 


0400 
4071 060402 
4 0406 


4088 060460 
4092 060464 
060464 
04 
060470 
060472 
4093 060474 
060474 


4094 060476 
4095 060475 
0476 


4099 060514 


f SESE 6: OPERATIONS AT 


061017 
012727 
0000 


03 
905237 
104456 


005237 


104456 
por iés 


0611 
o158e6 
104406 


104406 


004737 
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000250 
002116 
177772 
177756 
060674 
000200 


002214 


000004 
060570 
000001 


002214 


060570 
000002 


002214 


002214 
017262 


000017 


286$: 


290$: 


300$: 


320$: 


BNE 
DELAY 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


600$: 


ENDSUEB 


999$: 


286$ 


T34DLY 
85$ 
#SSR,R2 


ain 
R3 


FATFLG 

ERRNO, T34ET,PKTSSR 
#B1T2,R1 
T34BFR+6,R1 
#BITO,R2 

Ri ,R2 


FATFLG 
ERRNO, T34ETC ,EXPREC 


T34BFR+6,R1 
#BiT1,R2 
R1,R2 


FATFLG 
ERRNO, T34B0T ,EXPREC 


FATFLG,#15. 
PC,CKDROP 


al WHEN SSR_IS SET 
WAIT ABOUT .25 SECONDS 


BUMP COUNTER 

BR, IF MORE TO COUNT 

7SET UP EXPECTED 

SARE THEY EQUAL 

:BR, IT MIGHT BE END OF TAPE 
DEC RECORD COUNTER 


ERROR COUNT 
;EOT NOT FOUND (USE eae a 


SEQ 0219 


#250, (PC)+ 
LSDLY,(PC)+ 
-6(PC) 

24 

=-22(PC) 


T CSERHRD 
° 626 
WORD T34ET 
«WORD PKTSSR 
: CHECK ie TAPE STATUS ALERT 
sPICK xSTO 
:SET uP EXPECTED 
CLEAR THE EOT BIT IN EXPECTED 
;WAS THE BIT ON 
BR, IF EOT WAS FOUND 
sERROR COUNT 
sEOT BIT (XSTO) NOT CLEAR 
TRAP CSERHRD 
WORD 627 
WORD T34ETC 
«WORD EXPREC 
:LOOP IF SELECTED 
TRAP CSCLP1 
:PICK UP XSTO 
SET UP EXPECTED 
:SET THE BOT BIT ON IN EXPECTED 
WAS THE BIT ON 
:BR, IF BOT WAS FOUND 
ERROR COUNT 
sEOT BIT (xXSTO) NOT CLEAR 
TRAP CSERHRD 
«WORD 628 
-WORD T34B0T 
«WORD EXPREC 
LOOP IF SELECTED 
TRAP CSCLP1 


3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10062: 


TRAP 
1S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


CSESUB 
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asge 060514 








410 
410 


1 060520 
060522 
060526 
060526 
060530 


004737 016536 
000137 056072 


104432 
002662 


JSR 
BCC 
JMP 


EXIT 
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PC, TSTLOOP 
163$ 


T34L00P 
TST 


200 WE NEED i. ITERATE TEST 
IF NO LOOP REQUIRED 
TEXECUTE AGAIN 
ALL DONE THIS TEST 
TRAP CSEXIT 


«WORD L10061-. 


SEQ 0220 


ery 


—— 
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SRARRAARERES 
—_ — 2 2 os ) 2 Ls ss I 
CODNOU EWN Oo 


[ 


556 
4121 060560 
cis¢ 060562 


4145 
4146 060670 
4147 060672 
4148 060674 
4149 
4150 
4151 060676 


4 

4161 060704 
4162 060706 
4163 060710 
4164 060712 


TEST 6: GPERATIONS AT E 


060540 
100004 
0 


000000 


060650 
100006 


100005 
000000 


000000 
000000 


000000 
000000 
000000 


010 
200 
000000 
000000 





3+ 
— STORAGE FOR THIS TEST 


=<.+10>8177770 
riewaceal 
WORD 100004 
- WORD _— 


«WORD 

WORD 8. 
T34DATA: 

-WORD T34BFR 

WORD 0 

WORD 10. 

WORD 0 


T34DSW: .WORD 0 
T34BFR: .BLKW 25. 


[WRITE SUBSYSTEM MEMORY COMMAND PACKET 


=<. +10>8177770 
T34PK2: 

«WORD 100006 

~ WORD se 


» WORD 6. 
T34PK3: 
-WORD 100005 
T34RB 
T34WB: .WORD 0 
-WORD O 
T3482 -WORD OQ 
EVEN 


T34S2: RD 

13483: :WORD 

; EVEN 

; TAPE MOTION PACKET COMMAND VALUES 
T34WD: .WORD 100005 


T34WDR: .WORD 100405 
T34CON: .WORD 102005 
WORD 177777 


SEQ 0221 


COMMAND PACKET FOR TEST 

WRITE CHARACTERISTICS COMMAND, WITH ACK 
ZADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 

; CHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

LENGTH OF MESSAGE BUFFER 


SELECT DRIVE 0 
sMESSAGE BUFFER 


WRITE SUB SYS MEM COMMAND, AND ACK 
ADDRESS OF SELECT BLOCK DATA 
SIZE OF DATA PACKET 


sWRITE COMMAND, AND ACK 
sADDRESS OF WRITE/READ BUFFER 
SIZE OF BUFFER (EXTENT) 


LARGEST TAPE RECORD IN BYTES 
TAPE RECORD COUNTER 
;DELAY COUNTER 


:BSELO AREA 


7 SE 
[DATA AREA 


WRITE DATA (NEXT) 


END OF DATA 


: 


— = 


— 
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TEST 6: OPERATIONS AT EOT SEQ 0222 
4168 
4169 3+ 
rite sLOCAL TEXT MESSAGES FOR TEST 
i 
4174 060714 124 123 123 T34POS: .ASCIZ ‘TSSR Incorrect After Position (SPACE RECORDS) eae 
4175 061002 127 122 111 T34ETO: .ASCIZ ‘WRITE TAPE MARK At EOT Failed To Set EOT Bit (xSTO)’ 
4176 061066 122 105 101 T34RRE: .ASCIZ ‘READ Command At EOT Didn''t Give sores Terminat in (TSSR)* 
4177 061157 125 156 141 T3GETC: .ASCIZ ‘Unable To Clear EOT indication rd ha t 0° 
4178 061234 122 105 127 T34B80T: .ASCIZ ‘REWIND Failed To Set BOT (XSTOS Bit 
4179 061300 127 122 111 T34WTM: .ASCIZ ‘WRITE TAPE MARK At EOT Failed To Set Tape Status Alert’ 
061 127 122 111 T34ET2: .ASCIZ ‘WRITE DATA At EOT Failed To Set Tape Status Alert’ 
4181 061451 127 122 111 T34ETN: .ASCIZ ‘WRITE DATA At EOT Failed To Set EOT Bit (xSTO)' 
4182 061530 123 120 101 T34ETS: .ASCIZ ‘SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit (xSTO)* 
4183 061622 122 105 101 T346ETZ: .ASCIZ ‘READ DATA At EOT Failed To Set EOT Bit (xSTO)' 
0617 124 123 123 T34STM: .ASCIZ ‘TSSR Incorrect Aiter SKIP TAPE MARK REVERSE At EOT’ 
4185 061763 120 117 123 T34TMK: .ASCIZ ‘POSITION Command At EOT 7 Tape Mark Failed To Set TMK (xSTO)’ 
6 06206 127 122 111 T34SSR: .ASCIZ ‘WRITE Command Not accept “ 
4187 062116 105 117 124 4ET: .ASCIZ ‘EOT Not Found In 650 00° 5° 5K Writes, (Use Shor ger Tape)’ 
06220 127 122 111 T34EOT: .ASCIZ ‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT 
4189 062263 124 123 123 4TM: .ASCIZ ‘TSSR Not Correct After WRITE Command Reject’ 
4190 062337 122 145 167 T34RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
191 0624 122 101 115 T34RNC: .ASCIZ ‘RAM Error, Correct data cettere a In Ram’ 
4192 06246 124 123 123 T34AM3: .ASCIZ ‘TSSR Init. Failed After WRITE Command’ 
4193 062527 104 162 151 T340FL: .ASCIZ ‘Drive 7 Select Failed To Set ‘ORL In TSSR‘ 
4194 06260. 124 123 123 T34WDD ments *TSSR Not Correct After WRITE DATA Command, SWB Bit Set’ 
4195 062671 124 123 123 T34WDC: .ASCI *TSSR Not Correct After WRITE DATA Command, Check For ee Offline’ 
4196 062773 103 126 103 T34VCK: .ASCIZ ‘CVC Set, Didn’'t Reset VCK In Message Buffer’ 
4197 063046 124 123 102 T34BA: .ASCIZ ‘TSBA Not Correct After WRITE DATA Command’ 
4198 063120 127 122 111 T34WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)‘ 
4199 063207 117 160 145 TST34I1D: -ASCIZ ‘Operations At EOT' 
4200 EVEN 
2502 ‘ 
4203 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
éSoe sWRITE SUBSYSTEM MEMORY COMMAND 
4206 3° 
4207 
4208 063232 T34REST: 
4209 063232 SAVREG sSAVE THE REGISTERS 
4210 063236 012701 060540 MOV #T34PACKET,R1 STA ART OF THE PACKET 
4211 063242 012721 100004 MOV #100004, (Ri)+ SWRITE SUBSYSTEM MEM. WITH ACK 
4212 063246 012721 060550 MOV #T34DATA, (R1)+ SADDRESS OF CHARAISTICS DATA BLOCK 
4213 063252 005021 CLR 3 d+ sEXTENDED ADDRESS 
4214 063254 012721 000012 MOV #10., sSIZE OF DATA BLOCK IN BYTES 
4215 063260 012721 060562 MOV AISi6rR, eR1D¢ TADDRESS OF MESSAGE BUFFER 
4216 063264 005021 CLR 
063266 012721 000024 MOV #20, “(RID sLENGTH OF MESSAGE BUFFER 
4218 063272 005021 CLR 
4219 063274 012711 000000 MOV i RI) sSELECT DRIVE ZERO 
220 0633 012702 000030 MOV #24. ,R2 [NUMBER OF LOCATIONS TO ee CLEARED 
221 0633 012762 177777 060562 64$: MOV #177777, T34BFR(R2) ALL ONES TO MESSAGE BUFFER 
4222 063312 005742 TST -(R2) BUMP mv TO NEXT LOCATION 
4223 063314 020227 000000 CMP R2,40 ‘R2 AT ZERO YET 
4224 063320 001371 BNE 64$ KEEP GbING UNTIL DONE 








ze 
TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY=82 08:43 PAGE 121-1 


make 


TEST 6: OPERATIONS AT EOT SEQ 0223 
4225 063322 060207 RTS PC RETURN 
4227 
4228 063324 T34RT2: 
4229 063324 SAVREG s SAVE so REGISTERS 
4230 063330 012701 060650 MOV #T34PK2,R1 SSTART OF THE PACKET 
4231 063334 012721 100006 MOV #100006, (R1)+ SWRITE SUBSYSTEM MEM. WITH ACK 
4232 063340 012721 060676 MOV #TSGBF 2, (R1)+ SADDRESS OF DATA BLOCK 
4233 063344 005021 CLR (R1)¢ sEXTENDED ADDRESS 
4234 063346 012721 000006 MOV #6.,(R1)¢ ZSIZE OF DATA BLOCK IN BYTES 
4235 063352 012701 060676 MOV #T34BF2,R1 ‘POINT TO DATA SEL AREA 
4236 063356 005021 CLR (R1)+ 
4237 063360 005021 CLR (R1)+¢ 
4238 063362 005011 CLR (R1) 
4239 063364 000207 RTS PC RETURN 
4240 063366 T34RT3: 
4241 063366 SAVREG ZSAVE THE REGISTERS 
4242 063372 012701 060660 MOV #T34PK3,R1 SSTART OF THE PACKET 
4243 063376 012721 100005 MOV #100005, (R1)+ sWRITE TAPE. WITH ACK 
4244 063402 005021 CLR (R1)+ sADDRESS OF DATA BLOCK 
4245 063404 005021 CLR (R1)+ sEXTENDED ADDRESS 
4246 063406 005011 CLR (R1) sSIZE OF DATA BLOCK 
4247 063410 000207 RTS PC sRETURN 
4248 063412 ENDTST 
063412 L10061: 


063412 104401 TRAP CSETST 


| F 2. 
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4296 063444 
4297 063444 

063444 

063444 
4298 063446 
4299 063452 
4300 56 
4301 063462 
4302 66 





012737 


005037 


012727 
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006354 
073133 
016570 


000005 
067536 


073164 


016054 


000250 


002172 


002210 


067542 


SEQ 0224 
-SBTTL TEST 7: EXTENDED MODE FEATURES 


+ 


THIS TEST VERIFIES THE OPERATION OF COMMANDS ONLY AVAILABLE WHEN 
lode CONTROLLER IS IN THE EXTENDED FEATURES MODE. THESE COMMANDS 


REWIND WITH IMMEDIATE INI UPT 


IF THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND. 


THE TEST CONSISTS OF THE FOLLOWING 7 SUBTESTS 


BGNTST 1? 

MOV #EPRT1,EPRTSW sPRIMARY ERROR MESSAGE 

MOV #TST351D,RO :ASCHI MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP O INITIAL it SETUP 

MOV #5 ,LOOPCNT SPER ORM 5 ITERATIONS 

CLR T35CNT ZCLEAR TAPE RECORD COUNTER 


[TEST 7, SUBTEST 1 


VERIFIES THAT A REWIND WITH IMMEDIATE INTERRUPT COMMAND, . SSUED 
WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0), CAUSES ALMOST 
IMMEDIATE TERMINATION BUT NO INTERRUPT. STATUS IN THE MESSAGE 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET. 


T3SLOOP: 
8 


GNSUB y>>>>>>>>>>>> BESin SUBTEST >>>>>>>>>>>> 
TRAP C$B8SuUB 
JSR PC, T35REST SET COMMAND PACK 
CLR INTRECV [CLEAR INTERRUPT RECEIVED FLAG 
JSR PC, T35RT2 SET UP OTHER C PACKET 
JSR C,T35RT3 [SET UP OTHER COMMAND PACKET 
MOV #65000. ,T35DLY 7SET UP DELAY COUNTER 
CLR T35CNT [CLEAR COUNTER 
108: JSR PC,SOFINIT D0 INITIALIZE A CONTROLLER 
BCS 20$ [BR IF INIT 
DELAY 250 DELAY ABOUT” AS" 


MOV #250, (PC)+ 
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TEST 7: EXTENDED MODE FEATURES SEQ 0225 
063512 060000 .WORD 0 
063514 013727 002116 MOV LSDLY,(PC)+ 
063520 000000 WORD 
063522 005367 177772 DEC -6(PC) 
063526 001375 BNE 4 
063530 005367 177756 DEC =22(PC) 
063534 001367 BNE .-20 

4307 063536 005337 067542 DEC T35DLY :BUMP COUNTER 

4308 063542 001356 BNE 10$ BR, IF OPOUNTER NOT DONE 

4309 063544 005237 002214 INC FATFLG sERROR COUNT 

4313 063550 010001 MOV RO,R1 :CONTENTS OF TSSR REGISTER 

4314 063552 ERRDF ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
063552 104455 TRAP  CSERDF 
063554 001275 .WORD 701 
063556 003646 “WORD SFIERR 
063560 012114 ~ WORD SF IMSG 

4315 063562 013737 002174 067410 20$: MoV UNITN, T35DSW ZSET UP DRIVE NUMBER 

4316 063570 012704 067370 MOV AT35PACKET,R4 [SUBROUTINE NEEDS PACKET ADDRESS 

4317 063574 004737 010742 JSR PC ,WRTCHR TISSUE WRITE CHARACTERISTICS 

4318 063600 103407 BCS 25$ BR, IF COMMAND | ISSUE 

4319 063602 005237 002214 INC FATFLG : 

4323 063606 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

4324 063610 ERRHRD ERRNO, WRTMSG,SFIMSG sWRITE CHARACTERISTISC FAILED 
063610 104456 TRAP  CSERHRD 
063612 001276 .WORD 702 
063614 005052 “WORD wWRTMSG 
063616 012114 ~WORD SF IMSG 

4325 063620 25$: CKLOOP sLOOP IF SELECTED 
063620 104406 TRAP  C$CLP1 

4326 063622 004737 011074 JSR PC REWIND :CALL TAPE REWIND COMMAND 

4327 063626 103411 BCS 30$ [BR, IF NO PROBLEM 

4328 063630 010004 MOV RO,R4 *SET UP REWIND ppACkeT ADDRESS 

4329 063632 016501 000002 MOV TSSR(RS) RI ‘GET TSSR FOR PRINTOUT 

4330 063636 005237 002214 INC ATFL ZERROR COUNT 

4334 063642 ERRHRD ERRNO, T35RWN,PKTSSR sREWIND NOT ACCEPTED 
063642 104456 TRAP  CSERHRD 
063644 001277 «WORD 703 
063646 070644 “WORD T35RWN 
063650 012126 “WORD PKTSSR 

4335 063652 30$:  CKLOOP ;LOOP IF SELECTED 

52 104406 TRAP — C$CLP1 

4336 063654 013701 067420 MOV T35BFR+6,R1 :PICK UP XSTO 

4337 063660 010102 MOV R1,R2 :SET UP EXPECTED 

4338 063662 052702 000002 BIS #BIT1,R2 ‘SET BOT pelt IN EXPECTED 

4339 063666 020102 CMP R1,R2 [DOES EXP = REC'D 

4340 063670 001406 BEQ 40$ BR, IF EQUAL (OK) 

4341 063672 005237 002214 INC FATFLG sERROR COUNT 

4345 063676 ERRHRD ERRNO, T35B0T, EXPREC 3s TAPE NOT AT BOT AFTER = 
063676 104456 CSERHRD 
063700 001300 TeoRD 704 
063702 070340 “WORD T35BOT 
063704 015554 ~WORD EXPREC 

4346 063706 40$:  CKLOOP :LOOP IF SELECTED 

706 104406 TRAP = CSCLP1 

4347 063710 012703 000024 MOV #20. ,R3 sNUMBER OF RECORDS 

4348 063714 012737 000400 067516 MOV #296. 13582 TSET UP RECORD SIZE 

4349 063722 013737 003116 067512 MOV REE. 135WB SADDRESS OF WRITE BUFFER 





aa 1 
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4350 
4351 FERRARA EAREEREAEEAREEREERERKEAKKEKREREE 
4352 ; 
4353 :WRITE DATA,ACK,CVC=1 COMMAND 
4355 WITTIIIIIITIIT LITT LiT TTT Litt TTT Te 
4356 
4357 063730 012737 140005 067510 MOV #140005, 135PK3 ;WRITE DATA,ACK,CVC=1 COMMAND 
4358 063736 012704 067510 MOV #T35PK3_RG ‘SE7 UP R4 WITH PACKET ADDRESS 
4359 063742 010465 000000 50$: MOV R4, TSDB(RS) : ISSUE COMMAND 
4360 063746 004737 016530 JSR PC. WAITF sWAIT FOR SSR TO SET 
4361 063752 016501 000002 MOV TSSR(RS),R1 [GET TSSR CONTENTS 
4362 063756 012702 000209 MOV #SSR,R2 :SET UP EXPECTED 
4363 063762 020102 CMP R1,R2 TARE THEY EQUAL 
4364 063764 001406 BEQ 60$ 7BR, IF OK 
4365 063766 005237 002214 INC FATFLG sERROR COUNT 
4369 063772 ERRHRD ERRNO, T35WDE,PKTSSR ZTSSR INCORRECT AFTER WRITE DATA 
063772 104456 TRAP  CSERHRD 
063774 001301 .WORD 705 
063776 070266 “WORD T35WDE 
012126 “WORD  PKTSSR 
4370 064002 60$:  CKLOOP :LOOP IF SELECTED 
064002 104406 TRAP _— C$CLP1 
4371 064004 005303 DEC R3 :BUMP RECORD COUNTER 
4372 064006 001355 BNE 50$ 7BR, IF MORE RRECORDS TO COUNT 
4374 FERRARA EREEERERREREEEREREERERKKKEKEKE 
4375 : 
2378 ;WAIT FOR TAPE TO STOP ALL MOTION 
4378 WITTTIIIIITLITT LITT LiLi TTT TTT TTT TTT 
4379 
4380 064010 012737 000012 067542 MOV #10.,T35DLY :SET UP DELAY COUNTER 
4381 064016 70$: DELAY 250 :WAIT ABOUT .25 SEC 
064016 012727 000250 MOV #250, (PC)+ 
064022 000000 . WORD 
002116 MOV LSDLY, (PC)+ 
06403 «WORD 
177772 DEC -6(PC) 
BNE - 
177756 DEC -22(PC) 
BNE .-20 
067542 DEC T35DLY ;BUMP COUNTER DOWN 
BNE 70$ ‘BR, IF MORE TO DELAY 
002220 TST EXTFEA :CHECK FOR EXTENDED FEATURES Sw SWITCH 
BNE 110$ :BR IF SWITCH IS ON 
000200 067521 MOVB #200,7358S1 ZWRITE MISCELLANEOUS CONT/READ STATUS 
000010 067520 MOVB  #10,135B8S0 ZFUNCTION SELECTION BIT (TURN ON EXTFEA Hw SWITCH) 
067500 MOV #T35PK2,R4 [WRITE SUBSYS MEM PACKET 
000000 MOV R4, TSDB(RS) : ISSUE COMMAND 
016416 JSR PC. CHKTSSR SWAIT FOR SS 
BCS 90$ :BR, IF NO ERROR 
MOV RO,R1 SERROR, SAVE TSSR 
002214 ° 


INC FATFLG ERROR COUNT 
ERRHRD ERRNO, T35SSSR,PKTSSR :TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
yr CSERHRD 





064126 

30 

4398 oer lss 
4399 064134 


4407 064154 
064154 
064156 
064160 
064162 

4408 064164 
064164 

4409 064166 

acre 064174 


4424 064230 
4425 064234 
064234 


064240 
064242 
064246 
perSee 


Ge 
4438 064324 
4439 064326 
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072422 
012126 


104406 


010001 
104456 
012114 
104406 


612737 
005037 


012737 


005237 
012727 
00 


012126 
104406 


016501 
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FEAT SEQ 0227 
.WORD 1T35SSR 
“WORD PKTSSP 
90$:  CKLOOP :LOOP IF SELECTED 
RAP C$CLP1 
067370 MOV AT35PACKET,RG ;SUBROUTINE NEEDS PACKET ADDRESS 
010742 JSR CWRTCHR TISSUE WRITE CHARACTERISTICS 
BCS 1 ‘BR, IF COMMAND ISSUED OK 
002214 INC FATFLG ZERROR COUNT 
MOV RO,R1 zSAVE CONTENTS OF TSSR 
ERRHRD ERRNO,WRTMSG, SF IMSG [WRITE CHARACTERISTISC FAILED 
TRAP §CS$ERHRD 
«WORD 707 
“WORD WRTMSG 
“WORD SFIMSG 
100$:  CKLOOP :SCOPE LOOP 
TRAP — C$CLP1 
176750 067542 110$: MOV #65000. ,T35DLY :SET UP DELAY COUNTER 
067536 CLR T35CNT ‘DELAY COUNTER 
FARA REEAAEAEEAARREEREEEREREREEKKKKRKHE 
[REWIND IMED. INTERRUPT,ACK,CVC=1,IE=0 COMMAND 
WETTITITILILILILLLITT TLL Titi TTT TT Tite 
142012 067510 MOV #142012, T35PK3 ;REWIND IMED. INTERRUPT,ACK,CVC=1,1E=0 COMMAND 
067510 MOV #T35PK3_R :SET UP R4 WITH PACKET ADDRESS 
000000 MOV Ra TSDBCRS) ‘ISSUE COMMAND 
000002 120$: MOV TSSR(RS) RI :GET TSSR CONTENTS 
000200 BIT #SSR,R1 [CHECK FOR SSR SET 
BNE 130$ 7BR, WHEN SSR IS SET 
067536 INC T35CNT [BUMP THE CYCLE COUNTER 
DELAY 1 SDELAY TO KEEP COUNTER DOWN 
000901 MOV #1, (PC)+ 
.WORD 0 
002116 MOV LSOLY,(PC)+ 
«WORD 0 
177772 DEC -6(PC) 
BNE - 
177756 DEC ~22(PC) 
067542 DEC T35DLY : DROP DEAD TIMER BUMP DOWN 
BNE 120$ IF MORE TIME TO GO 
000200 130$: MOV #SSR,R2 ett UP EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ 140$ BR, IF OK 
002214 INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T35RWE.PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
«WORD 708 
"WORD T3SRWE 
“WORD PKTSSR 
140$:  CKLOOP :LOOP IF SELECTED 
TRAP CS$CLP1 
002216 TST INTRECV :CHECK FOR INTERRUPTS 
BEQ 1 [BR, IF NO INTERRUPTS DETECTED 
000002 MOV TSSR(RS) RI [GET TSSR STATUS FOR PRINTOUT 





] 
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4440 064332 
Sao) sek tr4 


4468 20 
4469 064422 


34 

4474 064436 
064436 

4475 064440 
4476 peteee 


74 

4477 064476 
4478 064502 
4479 064504 
064504 


064504 
4480 064506 


005237 
104456 


012126 
104406 


013701 


005337 
104456 
001307 
072672 
015554 
104406 
012737 
012727 


001361 


104403 
023727 


FEAT 
002214 


067420 
000200 


002214 


067424 
100000 


002214 


000027 
000250 
002116 
177772 
177756 
067542 


067542 


002214 000017 


150$: 


INC 


CKLOOP 
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FAT 
ERRHRD ERRNO. T3SINT,PKTSSR 


ERROR COUNT 
: INTERRUPT RECEIVED (BAD) 


;LOOP IF SELECTED 


FARRAR ARAAAEAAEAARAAEAEEREREERERAKRRRKKKKE 


[NOW CHECK FOR THE MOTION BITS SET 


: 
SAAR AERARARAERAARARAERARERERERRERREKHKKKEKE 


160$: 


170$: 


175$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


MOV 
DELAY 


DEC 
BNE 
ENDSUB 


CMP 


Ree oe SP oe aS 


T35BFR+6,R1 
R1,R 


wair?, R2 
Ri,R2 


160$ 


FATFLG 
ERRNO, T35MOT ,EXPREC 


T35BFR+12,R1 
#BIT15,R2 
R1,R2 

170$ 


FATFLG 
ERRNO, T350PM,EXPREC 


#23.,T35DLY 
250 


FATFLG,#15. 


zPICK UP dy 
set UP_EXP 


DOES EXP 


BR, IF EQUAL (OK) 


CTED 
MOT BIT abers EXPECTED 


ERROR COUNT 
;TAPE NOT AT BOT AFTER — 


LOOP IF SELECTED 


sPICK UP XST2 
SET UP EXPECTE 


D 
SET OPM BIT ales EXPECTED 


:DOES EXP = 


» IF EQUAL (OK) 
ERROR COUNT 


;0PM BIT NOT SET 


LOOP IF SELECTED 


SET UP DELAY COUNTER 
START DELAY 


sBUMP DELAY COUNTER 
:BR, IF MORE DELAY 


L10064: 


TRAP 
31S ERROR COUNT AT 25 


SEQ 0228 


CSERHRD 
709 


T35INT 
PKTSSR 


CSCLP1 


CSERHRD 
710 
T35MOT 
EXPREC 


CSCLP1 


CSERHRD 
711 
T350PM 
EXPREC 


CSCLP1 


#250, (PC)+ 
PspLy, <PC)+ 
=6(PC) 
-22(P¢) 

20 


CSESUB 


a 1 


—————————_——_————, 
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4481 064514 103402 BLO 999$ 
4482 petes8 004737 017262 JSR PC ,,CKDROP 
4483 064522 999$: 





3BR, IF LESS THAN 25 
:TRY TO DROP THE UNIT 


SEQ 0229 





4503 064532 
4504 064536 
4505 064542 
4506 064546 
4507 064552 


4508 60 
4509 064564 
4510 70 
4511 064572 

72 


4524 666 
4528 064672 
4529 064674 
064674 
064676 
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104402 
012700 
41 


103426 
012727 
000: 





2 
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000000 
073164 


016054 


000250 
002116 
177772 
177756 
067542 
002214 


SEQ 0230 


:TEST 7: SUBTEST 2 


067542 


10$: 


067410 20$: 


WITH THE INTERRUPT ENABLE (IE) BIT SET (1), CAUSES ALMOST 
IMMEDIATE TERMINATION AND AN INTERRUPT. STATUS IN THE MESSAGE 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) AND OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE SOTH SET. 


BGNSUB 3>>>>>>>>>>>> wast SUBTEST >>>>>>>>>>>> 
"TRAP —sC$BSUB 
MOV #PRIO0,RO 
TRAP CS$SPRI 
JSR PC, T35REST 3SET COMMAND PACK 


KET 
CLR INTRECV ;CLEAR INTERRUPT abe Sy FLAG 
JSR PC, T35RT2 SET UP OTHER COMMAND PACKET 


SETPRI #PRIOO ENABLE INTERRUPTS. 


JSR PC. T35RT3 [SET UP OTHER COMMAND PACKET 

MOV #65000. ,T35DLY :SET UP DELAY COUNTER 

CLR T35CNT :CLEAR COUNTER 

JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 

BCS 20$ R IF INIT WAS OK 

DELAY 250 ‘DELAY ABOUT .25 SEC 
MOV #250, (PC)+ 
. WORD 
MOV LSDLY, (PC)+ 
.WORD 0 
DEC -6(PC) 
BNE = 
DEC =22(PC) 
BNE - 

DEC T35DLY ;BUMP COUNTER 

BNE 10$ :BR, IF COUNTER NOT DONE 

INC FATFLG SERROR COUNT 

MOV RO,R1 ZCONTENTS OF TSSR REGISTER 

ERRDF ERRNO, SFIERR, SF IMSG [FATAL ERROR TSSR WAS NOT Ok 
TRAP CSERDF 
«WORD 712 
“WORD SFIERR 
<WORD  SFIMSG 

MOV UNITN, T35DSW 7SET UP DRIVE NUMBER 

MOV AT35PACKET,R4 [SUBROUTINE NEEDS PACKET ADDRESS 

JSR PC WRTICHR TISSUE WRITE CHARACTERISTICS 

BCS 25$ BR, IF COMMAND ISSUED Ok 

INC FATFLG RROR COUNT 


zSAVE C CONTENTS 0 TSSR 
3WRITE CHARACTERISTISC vases 
CSERHRD 


TTORD 713 


MOV RO,R1 
ERRHRD ERRNO,WRIMSG, SF IMSG 





TI 
Tl 
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sah 
4530 064704 
04 


34 
4540 pee ree 
4541 064740 


064770 

4551 064772 

064772 

4552 064774 
4553 06 


5000 

4554 065006 
4555 
4556 
4557 
4558 
4559 
4560 
561 

4562 065014 

4563 065022 
4564 


065052 
012114 


104406 
37 


005237 
104456 


013737 


012737 


005237 


104456 
601314 
070266 
012126 


104406 
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FEATURES 


011074 


000002 
002214 


067420 
000002 


002214 


000024 
000450 
003° 16 


140005 
0 


000200 


002214 


067516 
067512 


067510 


25$: CKLOOP 


ERRHRD 


30$: CKLOOP 


ERRHRD 


40$: CKLOOP 


PC REWIND 
308 

RO,R4 

TSSR(R5),R1 

FATF 

ERRNO, T35RWN,PKTSSR 


T35BFR+6,R1 

R1,R 

#B1T1,R2 
1,R2 


4 


FATFLG 
ERRNO, T35B0T ,EXPREC 


#20. ,R3 
#256. ,135SZ 
FREE, T35WB 


«WORD 

«WORD 
LOOP IF SELECTED 

TRAP 


sCALL TAPE pats by COMMAND 
F NO PROBLEM 


E 
‘SET UP REWIND — ADDRESS 
7GET TSSR CONTENT 


sERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP 
- WORD 
«WORD 
- WORD 
LOOP IF SELECTED 
RAP 


PICK UP XST 

:SET UP_EXPECTED 

3SET BOT BIT IN gwesres 
;DOES EXP = REC'D 

BR, IF EQUAL (OK) 


ERROR COUNT 
;TAPE NOT AT BOT AFTER ary 


LOOP IF SELECTED 


NUMBER OF RECORDS 
SET UP RECORD SIZE 
sADDRESS OF WRITE BUFFER 


FARA AEREEAERERREREREREREREREKKKKKKREE 


[WRITE DATA,ACK,CVC=1 COMMAND 


© 
FERRARA ERERAEEAEEEEREEHAKAKRKKKKKEKE 


50$: MOV 


ERRHRD 


608: CKLOOP 


#140005, T35PK3 
#T35PK3_RG 

Ra TSDB(RS) 

PC. Ww 

TS8RCnS), R1 
SSR,R2 

R1.R2 

60$ 

FATFLG 

ERRNO, T3SWDE,PKTSSR 


WRITE DATA,ACK,CVC=1 COMMAND 
7SET UP R4 WITH PACKET ADDRESS 
2 ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

ose. UP EXPECTED 


THEY EQUAL 
:BR, IF OK 
ERROR COUNT 

zTSSR INCORRECT AFTER WRITE DATA 
TRAP 
«WORD 
«WORD 
«WORD 

LOOP IF SELECTED 
TRAP 


PEAAAAAARAAAEARAEAEAEHRAEEAREARARAAKHKeEEE 





WRTMSG 
SF IMSG 


CSCLP1 


CSERHRD 
714 
T35RWN 
PKTSSR 


CSCLP1 


CSERHRD 
715 
T35B0T 
EXPREC 


CS$CLP1 


CSERHRD 
716 
T35WDE 


PKTSSR 


CSCLP1 


SEQ 0231 


= | 


N 2 
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TEST 7: EXTENDED MODE FEATU SEQ 0232 | TE 
4578 : 
ret ;WAIT FOR TAPE TO STOP ALL MOTION 
4581 ITITITILITILL LLL LLL LLL LTT TTT Tet 
4582 
4583 065070 012737 000012 067542 MOV #10.,T350LY ;SET UP DELAY COUNTER 
4584 065076 70$: DELAY 250 ;WAIT ABOUT .25 SEC 

065076 012727 000250 MOV #250, (PC)+ 
065102 000000 -WORD 0 
065104 013727 002116 MOV LSDLY, (PC)+ 
065110 00 -WORD 0 
065112 005367 177772 DEC -6(PC) 
065116 001375 BNE -- 
065120 005367 177756 DEC =-22(PC) 
065124 001367 BNE -720 
4585 065126 005337 067542 DEC T35DLY ;BUMP COUNTER DOWN 
4586 0651 001361 BNE 70$ 7BR, IF MORE TO DELAY 
4587 065134 005737 002220 TST hag + CHECK FOR EXTENDED FEATURES SW SWITCH 
4588 065140 001042 BNE 110$ <BR IF SWITCH IS ON 
4589 065142 112737 000200 067521 MOVB oy 7358S1 SWRITE MISCELLANEOUS CONT/READ STATUS 
4590 065150 112737 000010 067520 MOVB 10 1358 sO sFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
4591 065156 012704 067500 MOV aT 35PK3~ R4 SWRITE SUBSYS MEM PACKET 
4592 065162 010465 000000 MOV R4, TSDB(RS) + ISSUE COMMAND 
065166 004737 016416 JSR PC,CHKTSSR sWAIT FOR SSR 
4594 065172 103407 BCS 90$ 'BR, IF NO ERROR 
4595 065174 010001 MOV RO,R1 SERROR, SAVE TSSR 
065176 005237 002214 INC FATFLG zERROR COUNT 
600 065202 ERRHRD ERRNO,T35SSR,PKTSSR ;TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
065202 104456 TRAP CSERHRD 
001315 WORD 
072422 -WORD T35SSR 
065210 012126 -WORD PKISSR 
4601 065212 90$: CKLOOP ;LOOP IF SELECTED 
065212 104406 TRAP CSCLP1 
4602 065214 012704 067370 MOV #T3SPACKET,R4 ; SUBROUTINE NEEDS PACKET seatese 
4603 065220 004737 010742 JSR PC, ,WRICHR Z ISSUE WRITE CHARACTERISTICS 
4604 065224 103407 BCS 100$ BR, IF COMMAND ISSUED 
4605 065226 005237 002214 INC FATFLG sERROR COUNT 
4609 065232 010001 MOV RO,R1 SAVE CONTENTS OF TSSR 
4610 065234 ERRHRD ERRNO,WRITMSG,SFIMSG [WRITE CHARACTERISTISC FAILED 
065234 10445 TRAP CSERHRD 
065236 001316 -WORD 718 
065240 005052 -WORD WRTMSG 
065242 012114 «WORD SFIMSG 
4611 065244 100$: CKLOOP ;SCOPE LOOP 
065244 104406 TRAP CSCLP1 
4612 065246 012737 176750 067542 170$: #=‘MOV #65000. ,T35DLY ;SET UP DELAY COUNTER 
ai? 065254 005037 067536 CLR T35CNT DELAY COUNTER 
4615 LERAAAAAAAARAA AREER EE EERE RRKREREREKEE 
4616 ; 
rr 4 ZREWIND IMMEDIATL,ACK,CVC=1,I1E=1 COMMAND 
4619 WITITITILILITILT LITT T LTTE TTT TTT TTT ¢ 
4620 
4621 065260 012737 142212 067510 MOV orseg lg. TASKS sREWIND IMMEDIATE ,ACK,CVC=1,IE=1 COMMAND 
4622 065266 012704 067510 MOV #T35PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
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TEST 7: EXTENDED MODE F SEQ 0233 
4623 065272 010465 000000 MOV R4, TSDB(RS) zISSUE COMMAN 
4624 065276 016501 000002 120$: MOV TSSR(RS) RI GET TSSR CONTENTS 
4625 065302 032701 000200 BIT #SSR,R1 SCHECK FOR SSR SET 
626 065306 001021 BNE 0$ 7BR, WHEN SSR IS SET 
627 065310 005237 067536 INC T35CNT ‘BUMP THE CYCLE COUNTER 
4628 065314 DELAY ‘DELAY TO KEEP COUNTER DOWN 
065314 012727 000001 MOV #1, (PC)+ 
065320 00 . WORD 
065322 013727 002116 MOV LSDLY, (PC)+ 
065326 000000 WORD 
065330 005367 177772 DEC -6(PC) 
065334 001375 BNE 4 
065336 005367 177756 DEC =22(PC) 
065342 001367 BNE e | 
4629 065344 005337 067542 DEC T35DLY :DROP DEAD TIMER BUMP DOWN 
4630 065350 001352 BNE 120$ “BR, IF MORE TIME TO GO 
4631 065352 012702 000200 130$: MOV #SSR,R2 :SET UP EXPECTED | 
4632 065356 020102 CMP R1,R2 TARE THEY EQUAL 
33 065360 001406 BEQ 140$ 78R, IF OK 
065362 005237 002214 INC FATFLG sERROR COUNT 
4638 065366 ERRHRD ERRNO, T35RWE,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
0653 104456 TRAP CSERHRD 
065370 001317 .WORD 719 
065372 072770 “WORD  T35RWE 
065374 012126 "WORD PKTSSR 
4639 065376 140$:  CKLOOP ;LOOP IF SELECTED 
065376 104406 TRAP  C$CLP1 
4640 065400 005737 002216 TST INTRECV sCHECK FOR INTERRUPTS 
4641 065404 001010 BNE 15 [BR, IF INTERRUPTS DETECTED 
4642 065406 016501 000002 MOV TSSR(RS),R1 3GET TSSR STATUS FOR PRINTOUT 
4643 065412 005237 002214 INC FATFLG sERROR COUNT 
4647 065416 ERRHRD ERRNO, T35NIN,PKTSSR ; INTERRUPT NOT RECEIVED (BAD) 
065416 104456 TRAP — CSERHRD 
065420 001320 .WORD 720 
065422 073056 “WORD T35NIN 
065424 012126 -WORD PKTSSR 
4648 065426 150$:  CKLOOP :LOOP IF SELECTED 
at 065426 104406 TRAP — C$CLP1 
4650 FERAAAAARARAEAARAREERRERERERRRERREREREKEE 
4651 : 
4652 [NOW CHECK FOR THE MOTION BITS SET 
4654 TITITITITITITIT LTT TLL TTT TTT TTT Te 
4655 
4656 065430 013701 067420 MOV T35BFR+6,R1 :PICK UP XxSTO 
4657 065434 01010 MOV R1,R SET r¥ EXPECTED 
065436 052702 000200 BIS #BiT7,R2 :SET MOT seit IN EXPECTED 
4659 065442 020102 CMP R1,R2 [DOES EXP = REC'D 
065444 001406 BEQ 1 BR, IF EQUAL (OK) 
4661 065446 005237 002214 INC FATFLG sERROR COUNT 
4665 065452 ERRHRD ERRNO, T35MOT,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
065452 104456 CSERHRD 
065454 001321 : GORD 721 
065456 072503 “WORD T3SMOT 
065460 015554 .WORD EXPREC 
4666 065462 160$:  CKLOOP :LOOP IF SELECTED 


a 


---- 


TEST 1_= HARDWARE TEST Ls TEST MACRO M1113 25=MAY=82 08:43 PAGE E hoa 


TEST 7: EXTENDED MODE FEATURES SEQ 0234 
065462 104406 TRAP — C$CLP1 
4667 065464 013701 067424 MOV T3SBFR+12,R1 :PICK UP xST2 
065470 01010 MOV R1,R2 [SET UP EXPECTED 
065472 052702 100000 BIS #BiT15,R2 :SET OPM BIT IN EXPECTED 
4670 065476 02010 CMP R1,R2 SDOES EXP = REC'D 
1 065500 001406 BEQ 176$ BR, IF EQUAL (OK) 
4672 065502 005237 002214 INC FATFLG ZERROR COUNT 
6 065506 ERRHRD ERRNO, 1T350PM,EXPREC 30PM BIT’ NOT Oeet 
065506 104456 TRAP CSERHRD 
065510 00132 «WORD 722 
065512 072672 “WORD T350PM 
065514 015554 e-WORD EXPREC 
4677 065516 170$:  CKLOOP ;LOOP IF SELECTED 
065516 104406 TRAP — C$CLP1 
4678 065520 012737 000027 067542 MOV #23. ,T35DLY zSET UP DELAY COUNTER 
4679 065526 175$: DELAY 250 ‘START DELAY 
065526 012727 000250 MOV #250, (PC)+ 
065532 000000 .WORD 0 
5534 013777 002116 MOV LSDLY, (PC)+ 
065540 000000 . WORD 
065542 005367 177772 DEC -6(PC) 
065546 001375 BNE 4 
065550 005367 177756 DEC =22(PC) 
065554 001367 BNE .-20 
4680 065556 005337 067542 DEC T35DLY ;BUMP DELAY COUNTER 
4681 065562 001361 BNE 175$ ‘BR, IF MORE DELAY 
4682 065564 ENDSUB 
peseed L10065: 
065564 104403 TRAP  CSESUB 
4683 065566 023727 002214 000017 CMP FATFLG,#15. :1S ERROR COUNT AT 25 
4684 065574 103402 BLO 999$ 'BR, IF LESS THAN 25 
4685 065576 004737 017262 JSR PC, CKDROP [TRY TO DROP THE UNIT 


4686 065602 999$: 








cc  . - 
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a 


4 
4708 065602 
602 


602 
4709 065604 


4729 065672 
672 


065674 
065676 


700 
4730 063706 


065730 


104402 


010001 
104455 


010001 
104456 


012114 
104406 


005237 


104456 
001325 
070644 


073164 


016054 
002214 


002174 
067370 
010742 


002214 


011074 


000002 
002214 


067410 20$: 


23$: 


JSR PC, T35REST 

JSR PC, T35RT2 

JSR PC, T35RTS 

JSR PC, SOFINIT 
20$ 

INC FATFLG 


RO,R1 
ERRNO, SF IERR, SF IMSG 


MOV UNITN, T35DSW 
MOV AT35PACKET RG 
JSR PC WRTCHR 
BCS 23$ 

INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO,WRTMSG, SF IMSG 


CKLOOP 
JSR PC REWIND 
308 


RO,R4 
MOV TSSR(R5),R1 
INC FATFLG 
ERRHRD ERRNO, T3SRWN,PKTSSR 





TEST 7: EXTENDED MODE FEATURES SEQ 0235 
4688 s* 
4689 ; 
‘eR sTEST 7, SUBTEST 3 
4692 $ VERIFIES THAT THE NON-TAPE-MOTION COMMAND GET STATUS, ht 
4693 3 IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE 
4694 8 INTERRUPT gee S TERMINATES PROPERLY AND PROVIDES PROPER 
4695 3 STATUS. FIRST, A NUMBER OF DATA RECORDS ARE WRITTEN FROM BOT. 
4696 $ THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMAND IS ISSUED AND 
4697 $ TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS ISSUED. 
4698 $ THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW 
4699 ; MOT=1 AND OPM=1 IN THE MESSAGE BUFFER. AFTER A rast LONG 
4700 3 ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME TO 
4701 3 REST, GET STATUS IS AGAIN —— AND THE STATUS CHECKED. BOTH 
£702 3 MOT AND OPM SHOULD BE CLEAR 
4703 ; 
4704 3 
4705 3 
4706 ; 

707 = 


>>>>>>>>>>>> mat: SUBTEST >>>>>>>>>>>> 


TRAP 
SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
SET UP_OTHER COMMAND PACKET 
D0 INITIALIZE ON CONTROLLER 
:BR IF ge A, OK 


: COUNT 
:CONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS en 


«WORD 
- WORD 


- WORD 
UP_UNIT NUMBER IN PACKET 


C$BSUB 


CSEROF 
723 


SFIERR 
SF IMSG 


:SET 
oe uaet NEEDS of ADDRESS 


ISSUE WRITE CHARACTERISTICS 
2BR, IF COMMAND ISSUED OK 
RROR ae 


7 SAVE CONTENTS 0 TSSR 
WRITE CHARACTERISTISC boty 


ORD 

- WORD 

«WORD 
LOOP IF SELECTED 


R 
2 TAPE aie COMMAND 
IF NO PROBLEM 
Set UP ot bal on ck ADDRESS 
3GET CONTENTS F OR CALL 


sREWIND NOT ACCEPTED 


CSERHRD 
724 

WRTMSG 
SF IMSG 


CSCLP1 


CEM 
TSSRWN 


ETS pa pris php Spat ; 
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TEST 7: EXTENDED MODE FEATURES SEQ 0236 

065732 012126 -WORD PKTSSR 

4740 065734 30$: CKLOOP ;LOOP IF SELECTED 

5734 104406 TRAP CS$CLP1 

4741 065736 013701 067420 MOV T35BFR+6,R1 sPICK UP xSTO 

4742 065742 010102 MOV R1,R2 SET UP EXPECTED 

4743 065744 052702 000002 BIS #BIT1,R2 T BOT wna" IN ‘wheels 

4744 065750 020102 CMP R1,R2 ‘DOES EXP = REC'D 

4745 065752 001406 BEQ 40$ BR, IF EQUAL (OK) 

4746 065754 005237 002214 INC FATFLG zsERROR COUNT 

4750 065760 ERRHRD ERRNO, T35B0T, EXPREC 3s TAPE NOT AT BOT AFTER REWIND 
065760 104456 TRAP CSERHRD 
065762 001326 «WORD 726 
065764 070340 «WORD T3580T 
065766 015554 «WORD EXPREC 

4751 065770 40$: CKLOOP ;LOOP IF SELECTED 
065770 104406 TRAP C$CLP1 

4752 065772 012703 000024 MOV #20. ,R3 sSTARTING RECORD SIZE 

ao37 065776 013737 003116 067512 MOV FREE, Tsu STARTING WRITE BUFFER ADDRESS 

4755 FRARRARARARAEREEREREERERERERRERREREKERERE 

4756 3 

pets sWRITE DATA,CVC=1,ACK COMMAND 

4759 PITITITITILLILILTLITT TLL LE TLE TTL T Tee 

4760 

4761 066004 012737 140005 067510 65$: MOV #140005, T35PK3 sWRITE DATA,CVC=1,ACK COMMAND 

4762 066012 012704 067510 MOV AT35PK3,R4 sSET UP R4& WITH PACKET ADD RESS 

4763 066016 010300 MOV R3,RO SSET PATTERN IN CORRECT REGISTER 

4764 066020 004737 017502 JSR PC,FILLMEM FILL MEMORY WITH RECORD SIZE 

4765 066024 010337 067516 MOV R3,735S2Z 3SET UP RECORD SIZE IN PACKET 

4766 066030 010465 000000 MOV R4,TSDB(RS) C 

4767 066034 004737 016330 JSR PC ,WAITF ;WAIT FOR SSR TO SET 

4768 066040 016501 000002 MOV TSSR(RS), R] GET TSSR CONTENTS 

4769 066044 012702 000200 MOV R2 SET UP EXPECTED 

4770 066050 020102 CMP a Tae. TARE T 

4771 066052 001406 BEQ 80$ BR, I 

4772 066054 005237 002214 INC FATFLG sERROR COUNT 

4776 066060 ERRHRD ERRNO, T35WDC,PKTSSR zTSSR INCORRECT AFTER WRITE DATA 
066060 104456 TRAP CSERHRD 
066062 001327 «WORD 727 
066064 071200 -WORD T35wWDC 
066066 012126 -WORD PKTSSR 

4777 066070 80$: CKLOOP ;LOOP IF SELECTED 

4778 066070 104406 TRAP CSCLP1 

4779 FERRARA AREAEEAEEREERAREEEEERERREEKKREKRER 

4780 3 

+76) sWRITE DATA RETRY,CVC=1,ACK COMMAND 

4783 MITITITITILITIT LITT LLL TTT TTT ett 

&784 

4785 066072 012737 141005 067510 MOV #141005, T35PK3 sWRITE DATA RETRY,CVC=1,ACK COMMAND 

4786 066100 010465 000000 MOV R4, TSDB(RS) 7 ISSUE COMMAND 

4787 066104 004737 016330 JSR PC ,WAITF sWAIT FOR SSR TO SET 

4788 066110 016501 000002 MOV TSSR(RS),R1 3GET TSSR CONTENTS 

4789 066114 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 

120 020 CMP R1,Re SARE THEY EQUAL 





Fee a OT ae ee 





w 


| TEST 1 = HARDWARE TEST 
TEST 7: EXTENDED MODE 


| 
| 4791 066122 001406 
4792 066124 005237 


z 
3s 
2 
o 


NOOSES 
o 
= 
~ 
— 
™~m 
oa 


4799 066144 020327 
4800 


1a8 peeese 005237 
104456 
001332 
066232 070340 
34 015554 
4821 066236 
066236 


104406 
4822 066240 012703 


0 
4823 066244 013737 


Soooocoo 


2 
2 
3 
4837 066304 004737 
4838 0663 
4839 066314 
4840 066320 
841 066322 


oooo 

on——= 

=2ONOR 
~N 
So 
MN 


FEATU 


002214 


000052 
011074 


000002 
002214 


067420 
000002 


002214 


000024 
003116 


100001 
0 


000002 
000200 


90$: 


230$: 


2408: 


067512 


BEQ 
INC 
ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


INC 
ERRHRD 


CKLOOP 


MOV 
MOV 


F 3 
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90$ 
FATFLG 
ERRNO, TSSWRF ,PKTSSR 


(R3)+ 
R3,442. 


65 
PC REWIND 
230$ 


RO,R1 

TSSR(R5),R1 

FATFLG 

ERRNO, T3SRWN,EXPREC 


T35BFR+6,R1 
#BIT1,R2 

R1,R2 

240$ 

FATFLG 

ERRNO, T35B0T, EXPREC 


#20. ,R3 
FREE ,T35RB 


BR, IF OK 
sERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA RETRY 
TRAP CSERHRD 
-WORD 728 
~ WORD T35WRF 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CS$CLP1 
;BUMP thre SIZE COUNTER 
ol 42 SIZE YET 
IF hone ax TO WRITE 
PACE TAPE REWIND COMMAND 
“BR, IF NO PROBLEM 
sSAVE TSSR 
GET TSSR etd ky 
sERROR COUNT 
sREWIND NOT ACCEPTED 
TRAP CSERHRD 
«WORD 729 
~WORD T35RWN 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CS$CLP1 
sPICK UP XSTO 
SET uP EXPECTED 
;SET BOT BIT IN  ahaeinces 
[DOES EXP = REC'D 
:BR, IF cane (OK) 
zERROR COUNT 
; TAPE NOT AT “Bor AFTER REWIND 
TRAP CSERHRD 
-WORD 730 
~ WORD T35B0T 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 


STARTING RECORD SIZE 
zSTARTING READ BUFFER ADDRESS 


SAAR ARAAEEAAEREERERREERERERRARKEKEKKERKEKRE 


[READ DATA,ACK COMMAND 


. 
FAA RAAEAAAEAAEEERAEEEEEEEEREEEEEREKEKKEKEE 


067510 265$: 





#100001, T35PK3 
#T35PK3,R4 
W77777" RO 
PC,FILLMEM 


Z 
R4,TSDB(RS) 
oWAITF 
TSSR(RS), oR1 


ser DATA,ACK C 


OMMAND 
T UP_R4& WITH PACKET ADDRESS 
54 PATTERN IN CORRECT REGISTER 


FILL MEMORY WITH RECORD SIZE 
‘SET he SIZE IN PACKET 


2 ISSUE COMMAN 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
7 ARE a ae 


SEQ 0237 
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TEST 7: EXTENDED MODE FEA SEQ 0238 
4842 066324 005237 002214 INC FATFLG ZERROR COUNT 
4846 066330 ERRHRD ERRNO, T3SRDF,PKTSSR zTSSR INCORRECT AFTER READ DATA 
066330 104456 TRAP  C$SERHRD 
066332 00133 WORD 
066334 067632 “WORD T3S5RDF 
066336 012126 “WORD PKTSSR 
4847 066340 280$:  CKLOOP ;LOOP IF SELECTED 
066340 1044 RAP — C$CLP1 
4848 066342 013702 003116 MOV FREE ,R2 :GET BUFFER ADDRESS 
4849 066346 010304 MOV 3 Rb :GET RECORD SIZE 
4850 066350 162704 000024 SUB #20. ,R4 ‘POINT BACK TO 1ST RECORD 
4851 066354 060204 285$: ADD R2,R4 :POINT TO 1ST LOC IN BUFFER 
4852 066356 021402 CMP (R&) ,R3 ‘DATA WRITTEN = READ 
4853 066360 001410 BEQ 90$ [BR, IF DATA OK (GOOD) 
4854 066362 011401 MOV _— (R4),R1 [PICK UP BAD DATA 
4855 066 010302 MOV 3,R2 [SET UP EXPECTED 
856 066366 005237 002214 INC TFLG SERROR COUNT 
4860 066372 ERRHRD ERRNO, T35DTA, EXPREC ZDATA IN BUFFER NOT CORRECT 
06637 104456 TRAP CSERHRD 
066374 001334 «WORD 732 
066376 072325 “WORD T35DTA 
066400 015554 “WORD EXPREC 
4861 066402 290$:  CKLOOP :LOOP IF SELECTED 
066402 104406 CSCLP1 
862 066404 005724 TST (R4)+ :BUMP TO NEXT ADDRESS 
4863 066406 160204 SUB R2,R4 :BACK TO RECORD SIZE 
066410 020403 CMP R4_R3 TAT END OF RECORD YET 
4865 066412 001360 BNE 285$ [BR, IF MORE DATA TO CHECK 
066414 005723 TST (R3)+ [BUMP RECORD SIZE 
4867 066416 020327 000050 CMP R3,440 ‘DONE YET 
066422 001313 BNE 265$ 7BR, IF NOT DONE YET (MORE READS) 
4869 066424 300$:  CKLOOP SLOOP IF NOELECTED 
066424 104406 TRAP  C$CLP1 
4870 066426 330$: 
4871 066426 ENDSUB {>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
066426 L10066: 
066426 104403 TRAP C$ESUB 
4872 066430 023727 002214 000017 CMP FATFLG,#15. z1S ERROR COUNT AT 25 
4873 066436 103402 BLO 999$ :BR, IF LESS THAN 25 
4874 066440 004737 017262 JSR PC, CKDROP ‘TRY TO DROP THE UNIT 
4875 066444 999$: 


3 
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TEST 7: EXTENDED MODE FEATURES SEQ 0239 | 
| 4877 3+ 
4878 : 
4879 + TEST 7, SUBTEST 4 
4881 : VERIFIES THAT A TAPE=MOTION COMMAND (READ, WRITE, POSITION) 
4882 : ISSUED IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH | 
4883 : IMMEDIATE INTERRUPT COMMAND, IS "QUEUED’' BY THE CONTROLLER AND 
4884 : THEN EXECUTES PROPERLY. 
4885 e 
4886 ; 
i 7 
4889 066466 BGNSUB {>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> | 
104402 TRAP  C$BSUB 
90 066446 004737 073164 JSR PC, T35REST :SET COMMAND PACKET 
066452 004737 073256 JSR PC.T35RT2 ZSET UP OTHER COMMAND PACKET 
4892 066456 004737 073320 JSR PC. T35RT3 [SET UP OTHER COMMAND PACKET 
4893 066462 012737 176750 067542 MOV #65000. ,T35DLY :SET UP DELAY COUNTER 
4894 066470 004737 016054 10$: JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
4895 066474 103426 BCS 20$ ‘BR IF INIT WAS OK 
48% 066476 DELAY 250 [DELAY ABOUT .25 SEC 
066476 012727 000250 MOV #250, (PC)+ 
066502 000000 .WORD 0 
066504 013727 002116 MOV LSDLY, (PC)+ 
066510 000000 «WORD 0 
066512 005367 177772 DEC -6(PC) 
066516 001375 BNE 4 
066520 005367 177756 DEC -22(PC) 
066524 001367 BNE .-20 
4897 066526 005337 067542 DEC T35DLY :BUMP COUNTER 
4898 066532 001356 BNE 10$ BR, IF COUNTER NOT DONE 
4899 066534 005237 002214 INC FATFLG RROR COUNT 
4903 066540 010001 MOV RO,R1 SCONTENTS OF TSSR REGISTER 
4904 066542 ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
42 104455 TRAP  CSERDF 
066544 001335 .WORD 7? 
066546 003646 .WORD  SFIERR 
066550 012114 .WORD  SFIMSG 
4905 066552 013737 002174 067410 20$: MOV UNI TN, T35DSW 7SET UP UNIT (DRIVE) NUMBER 
4906 066560 012704 067370 MOV #T35PACKET RS :SUBROUTINE NEEDS PACKET ADDRESS 
4907 066564 004737 010742 JSR PC ,WRTCHR TISSUE WRITE CHARACTERISTICS 
4908 066570 103407 BCS 238 :BR, IF COMMAND ISSUE 
4909 066572 005237 002214 INC FATFLG 
4913 066576 010001 MOV RO,R1 SSAVE CONTENTS OF TSSR 
4914 066600 ERRHRD ERRNO,WRTMSG, SFIMSG ‘WRITE CHARACTERISTISC FAILED 
066600 104456 CSERHRD 
066602 001336 yr 734 
066604 005052 “WORD WRTMSG 
012114 -WORD  SFIMSG 
4915 066610 23$:  CKLOOP ;LOOP IF SELECTED 
10 104406 TRAP = C$CLP1 
4916 066612 004737 011074 JSR PC REWIND zCALL TAPE REWIND COMMAND 
4917 066616 103411 BCS IF NO PROBLEM 
4918 066620 016501 000002 MOV TSSR(RS),R1 GET TSSR CONTENTS 
4919 066624 010004 MOV RO,R4 [GET PACKET ADDRESS 
4920 066626 005237 002214 INC FATFLG ZERROR COUNT 





oS - 


| 


4924 066632 


4937 


4 
4970 067000 
4971 067006 


015554 
104406 


012703 
013737 


012737 
04 


ih eet 


0013 
071200 
012126 


104406 


067420 
000002 


002214 


000024 
003116 


140005 
067510 


017502 


000200 


002214 


111005 
000000 





067512 


067510 


067510 
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ERRHRD ERRNO, T35RWN,PKTSSR :REWIND NOT ACCEPTED 
TRAP  CSERHRD 
.WORD 735 
“WORD  T3S5RWN 
“WORD  PKTSSR 
30$:  CKLOOP :LOOP IF SELECTED 
TRAP — CSCLP1 
MOV T35BFR+6,R1 :PICK UP XSTO 
MOV R1,R TSET UP EXPECTED 
BIS #BIT1,R2 :SET BOT BIT IN EXPECTED 
CMP R1,R2 [DOES EXP = REC'D 
BEQ 40$ ; BR, IF EQUAL (OK) 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, 1T35B0T, EXPREC : TAPE NOT AT BOT AFTER REWIND 
CSERHRD 
MeoRD 736 
-WORD 13580T 
.WORD EXPREC 
40$:  CKLOOP :LOOP IF SELECTED 
TRAP CSCLP1 
MOV #20. ,R3 ZSTARTING RECORD SIZE 
MOV FREE. 135WB ZSTARTING WRITE BUFFER ADDRESS 
SERA AAAAAAEEAEAEAERAEREREEREREREREKEKEKKEE 
ZWRITE DATA,CVC=1,ACK COMMAND 
MITIIITILILILT TLL LITT LTT LLL TTT LTT Tete 
65$: MOV #140005, T35PK3 ZWRITE DATA,CVC=1,ACK COMMAND 
MOV #T35PK3.R4 [SET UP R4 WITH PACKET ADDRESS 
MOV R3, [SET PATTERN IN CORRECT pREGISTER 
JSR PC.FILLMEM [FILL MEMORY WITH RECORD SIZE 
MOV R3,135SZ ZSET UP RECORD SIZE IN PACKET 
MOV R4.TSDB(RS) 7 ISSUE COMMAND 
JSR PC. WAITF [WAIT FOR SSR TO SET 
MOV TSSR(R5S),R1 :GET TSSR CONTENTS 
MOV #SSR,R2 “SET UP EXPECTED 
CMP R1,R2 TARE THEY EQUAL 
BEQ o$ 7BR, IF OK 
INC FATFLG sERROR COUNT 
ERRHRD ERRNO, T35WDC.PKTSSR ZTSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERHRD 
«WORD 737 
“WORD T35wWDC 
“WORD  PKTSSR 
803:  CKLOOP ;LOOP IF SELECTED 
TRAP CS$CLP1 
SARA AAEEAAEEAAEEAEERAEAEEEEREREREREEREEE 
[WRITE DATA RETRY,ACK,SWB=1 COMMAND 
PITITITITILITITTTIT LLL i TTT Titi 
MOV #111005, 135PK3 ZWRITE DATA RETRY, ACK,SWB=1 COMMAND 
MOV R4, TSDB(RS) s ISSUE COMMAND 





SEQ 0240 


——$___—— 
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4972 067012 004737 


ao NOT 


o WMS 
CO Suir 


49 060 0047 
4987 067064 103411 
49 7066 016501 


88 06 
4989 067072 070004 
4990 067074 005237 
4994 00 


104456 
001343 
070644 
012126 


00 
067102 
067104 


067106 
4995 067110 
067 


110 104406 

& 7112 ~=013701 

4997 067116 010102 

4998 067120 052702 

7124 020102 

5 7126 1406 

5001 067130 005237 
5005 067134 

7134 104456 

067136 001344 

067140 070340 

7 015554 


104406 
5007 067146 012703 
sone 067152 013737 


5022 067212 012702 


J 3 
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FEATURES 


016330 
000002 
000200 


002214 


000052 
011074 
000002 
002214 


067420 
000002 


002214 


000024 
003116 


100001 
0 


000200 


SEQ 0241 
cme FOR SSR Ms SET 


SARE ag A EQUAL 


zERROR COUNT 
:TSSR INCORRECT AFTER WRITE DATA RETRY 
TRA CSERHRD 


wO 
«WORD T3SWRF 
«WORD EXPREC 


CSCLP1 


sLOOP IF SELECTED 


sBUMP RECORD SIZE COUNTER 
sAT 42 SIZE YET 

BR, IF MORE RECORDS TO WRITE 
CALL TAPE po COMMAND 


BR, IF NO PROB 
7GET TSSR CONTENTS 
7GET PACKET ADDRESS 


ERROR COUNT 
REWIND NOT ACCEPTED 
TRAP CeERuRD 


WORD T3SRWN 
«WORD PKTSSR 


TRAP CSCLP1 


LOOP IF SELECTED 


zPICK UP XxSTO 
:SET UP_EXPECTED 
:SET BOT BIT IN EXPECTED 
2 EXP = REC‘D 
. IF EQUAL (OK) 
ERROR COUNT 
;TAPE NOT AT BOT AFTER = 
CSERHRD 
GORD 740 
-WORD T35B0T 
«WORD EXPREC 
:LOOP IF SELECTED 
CSCLP1 


STARTING RECORD SIZE 
sSTARTING READ BUFFER ADDRESS 


oe pate ACK COMMAND 
P R4 WITH PACKET ADDRESS 
SFT UP RECORD SIZE IN PACKET 


71S OMMAN 
WAIT FOR SSR TO SET 


JSR PC ,WAITF 

MOV TSSR(R5S),R1 

MOV #SSR,R2 

CMP R1,R2 

BEQ 90$ 

INC FATFLG 

ERRHRD ERRNO, T35WRF ,EXPREC 
90$: CKLOOP 

TST (R3)+ 

CMP R3, #42. 

BNE 5$ 

JSR PC REWIND 

BCS 36$ 

MOV TSSR(RS),R1 

MOV RO,RG 

INC FATFLG 

ERRHRD ERRNO, T35RWN,PKTSSR 
230$:  CKLOOP 

MOV T35BER+6, R1 

MOV R1,R2 

BIS #B1T1,R2 

CMP R1,R2 

BEQ 240$ 

INC FATFLG 

ERRHRD ERRNO, T35B0T, EXPREC 
240$:  CKLOOP 

MOV #20.,R3 

067512 MOV FREE, T35RB 
J ERAARAERAAEEAAEEAAEEREAREERERERAEERRERKEKKKEH 
SREAD DATA,ACK COMMAND 
PITIIIITITITITITTTLTLLTL TTL TTT TTT TTT te 
067510 265$: MOV #100001, T35PK3 

MOV #T35PK3_R4 

MOV R3,135S 

MOV R4. TSDB(RS) 

JSR WW 

MOV TSSR(R5),R1 

MOV #SSR,R2 





:GET TSSR CONTENTS 
:SET UP EXPECTED 


vi 
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TEST 7: EXTENDED MODE 


5023 067216 


5025 067222 
5029 067226 
067226 


067234 
5030 067236 
067236 
5031 067240 


5032 067244 
aber 067246 


5054 067326 
326 

5055 067330 
067330 


067330 
5056 067332 
5057 067340 
5058 067342 
5059 067346 
5060 





104406 


004737 
103002 
000137 


104432 
003760 


FEAT 


002214 


003116 
000024 


002214 


000050 


002214 
017262 


016536 
063444 


000017 


280$: 


285$: 


290$: 


300$: 
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CMP R1,R2 

BEQ 280$ 

INC FATFLG 

ERRHRD ERRNO, T3SRDF ,PKTSSR 


CKLOOP 
MOV FREE ,R2 

MOV R3,R6 

SUB #20. ,R4 

ADD R2,R6 

SWAB RS. 

CMP (R4) ,R3 

BEG 290$ 

MOV (R4),R1 

MOV R3,R2 

INC FATFLG 

ERRHRD ERRNO, T35DTA,EXPREC 


CKLOOP 
TST (RG)+ 
SUB R2,R4 
SWAB RS 
CMP R4,R3 
BNE 285$ 
TST (R3)+ 
CMP R3,440. 
E 265$ 
CKLOOP 
ENDSUB 


CMP FATFLG,#15. 
999$ 
JSR PC,CKDROP 


JSR PC, TSTLOOP 
163$ 

JMP T35L00P 
TST 


sARE THEY EQUAL 
IF OK 


ERROR COUNT 
zTSSR INCORRECT AFTER READ _— 


LOOP IF SELECTED 
GET BUFFER ADDRESS 
:GET RECORD SIZ 


E 
POINT BACK TO 1ST RECORD 
;POINT TO 1ST Me) IN BUFFER 
AP WB=1 ETC. 


:PICK UP A 
:SET UP EXPECTED 
sER COUNT 
:DATA IN BUFFER NOT CORRECT 


LOOP IF SELECTED 


s;BUMP TO NEXT ADDRESS 
ote 0 RECORD SIZE 


E 
R, IF MORE DATA TO CHECK 
‘BUMP RECORD SIZE 
; DONE 


SEQ 0242 


CSERHRD 
741 


T35RDF 
PKTSSR 


CS$CLP1 


CSERHRD 
742 


T35DTA 
EXPREC 


CSCLP1 


YET 
3BR, IF NOT DONE YET (MORE READS) 


:LOOP IF SELECTED 


CSCLP1 


TRAP 
3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10067: 


TRAP 
21S ERROR COUNT AT 25 
:BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


:D0 WE wiy TO ITERATE TEST 
2B, IFN O LOOP REQUIRED 


TE AGAIN 
ALL DONE THIS TEST 
TRAP 
«WORD 


CSESUB 


———— 
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TEST 7: EXTENDED MODE FEATURES SEQ 0243 
5068 z+ 
534 ;LOCAL STORAGE FOR THIS TEST 
5072 067370 ~=<.+10>8177770 
5074 067370 T35PACKET: ;COMMAND PACKET FOR TEST 
5075 067370 100004 -WORD 100004 sWRITE CHARACTERISTICS COMMAND, WITH , ACK 
5076 067372 067400 ~ WORD T35DATA sADDRESS OF CHARACTERISTICS BLOCK 
5077 067374 000000 «WORD 0 
5078 067376 000012 «WORD 10. sSTARTING VALUE OF BLOCK SIZE 
5079 067400 T35DATA: CHARACTERISTICS DATA BLOCK 
5080 067400 067412 «WORD T35BFR ADDRESS OF MESSAGE BUFFER 
5081 067402 000000 «WORD 0 
5082 067404 000024 «WORD 20. ;LENGTH OF MESSAGE BUFFER 
5083 067406 000000 -WORD 0 
5084 067410 000000 T350SW: .WORD 0 sSELECT DRIVE 0 
944 067412 T35BFR: .BLKW 25. sMESSAGE BUFFER 
soae sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
5090 067500 .=<.+10>8177770 
5092 067500 T35PK2: ha 
5093 067500 100006 -WORD 100006 ;WRITE SUB SYS MEM COMMAND, AND ACK 
5094 067502 067520 ~ WORD T35BF 2 zADDRESS OF SELECT BLOCK DATA 
5095 067504 000000 «WORD O 
sone 067506 000006 eWORD 6. sSIZE OF DATA PACKET 
5101 067510 T35PK3: 
5102 067510 100005 -WORD 100005 ;REREAD COMMAND, AND ACK 
5103 067512 T35RB: 
5104 067512 003116 T35WB: .WORD FREE sADDRESS OF WRITE BUFFER 
5105 067514 000000 -WORD 0 
5106 0675 000000 T35SZ: .WORD 0 sSIZE OF BUFFER (EXTENT) 
5107 EVEN 
5108 ; 
5109 $ 
5110 2 
5111 067520 T358F 2: 
5112 067520 010 T358S0: .BYTE 10 :BSELO AREA 
5113 067521 200 T358S1: .BYTE 200 7BSEL1 AREA 
5114 067522 000000 T35S2: .WORD 0 :SEL 2 AREA 
site 067524 600000 T35S3: .WORD 0 DATA AREA 
5117 : 
5118 -EVEN 
31) ;TAPE MOTION PACKET COMMAND VALUES 
5121 067526 100205 T35RN: .WORD 100205 sREREAD DATA (NEXT) 
5122 067530 100605 T35WDR: .WORD 100605 sREREAD DATA RETRY 
5123 067532 102205 T35CON: .WORD 102205 sWRITE CONTINOUS 
gist 067534 177777 ~ WORD 177777 sEND OF DATA 
5126 
5127 067536 000000 T35CNT: .WORD 0 ;TAPE TIMER COUNTER STORAGE AREA 
5128 067540 000000 T35CNU: .WORD 0 7 TAPE TIMER COUNTER STORAGE AREA 
sige 067542 000000 T35DLY: .WORD 0 DELAY COUNTER 





ies 


| 
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ly 

| TEST 7: EXTENDED MODE FEATURES SEQ 0244 T 
| $132 

5133 3+ 

5134 sLOCAL TEXT MESSAGES FOR TEST | 

5135 = 

2139 | 

5138 067544 124 141 160 T35WNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (OPP=1)° 

5139 067632 124 123 123 T3SRDF: .ASCIZ ‘TSSR Incorrect After READ DATA Command‘ 

5140 067701 122 105 122 T3SRRF: .ASCIZ ‘REREAD ay tee (Space Reyer ss. Read Forward) Command Failed’ 

5141 067776 120 117 123 T35SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 

5142 07 122 111 102 T3SLOR: .ASCIZ ‘RIB NOT SET PAFTER READ REVERSE INTO BOT’ 

5143 070130 124 123 123 TSSWOF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 

5144 070205 111 154 154 T35LO0Q: .ASCIZ ope ceuet Mode Bits, Failed To Set ILC Bit Im xsTO’ 

5145 070266 124 123 123 T35WDE: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command‘ 

5146 070340 124 141 160 T35B0T: .ASCIZ ‘Tape Not At BOT After cule Command (BOT Not Set In xXSTO)* 

5147 070433 127 122 111 TSSTIM: .ASCIZ ‘WRITE DATA RETRY''S Erase Tape Not rat vaceR 

5148 070510 122 105 122 TS3SEOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

5149 070567 124 123 123 T35TM: .ASCIZ '‘TSSR Not Correct After REREAD COMMAND Reject’ 

5150 07 122 145 167 T35RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 

5151 070713 122 101 115 T3SRNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram‘ 

5152 070766 124 123 123 T35AM3: .ASCIZ ‘TSSR Init. Failed After REREAD COMMAND ' 

5153 071035 104 162 151 T3SOFL: .ASCIZ ‘Drive 7 Select Failed To Set ‘OFL'’ In TSSR’ 

5154 071110 124 123 123 T35WDD: .ASCIZ ‘TSSR Not Correct After REEAD DATA Command, SWB Bit Set’ 

5155 071200 124 123 123 T35WDC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 

5156 071253 103 126 103 T3S5VCK: .ASCIZ CvC Set, Didn''t Reset VCK In Message Buffer’ 

5157 071326 124 123 102 T35BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA enand 

5158 071401 127 122 111 T35WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted 7 Read)’ 

5159 071470 122 145 141 T35LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In xSTO' 

5160 071552 122 145 141 T35LOP: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In XxSTO* 

5761 071634 122 145 163 T3SPBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 

5162 071722 122 145 141 T3STRL: .ASCIZ aires Long Record Failed To Give Tape Status Alert’ 

5163 072010 127 122 111 T3SNEF: rtd: "WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3° 

5164 072106 124 123 123 T35SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 

5165 072163 124 123 123 T35TSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA Laat Into BOT’ 

5166 072245 124 123 123 T35WRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command’ 

5167 072325 104 141 164 T35DTA: .ASCIZ ‘Data Compare Error, Data Read From Tap ; Not Equal To Written’ 

5168 072422 124 123 123 TS35SSR: .ASCIZ ‘TSSR Incorrect After WRITE MISCELLANEOUS Command‘ 

5169 072503 115 117 124 T3SMOT: .ASCIZ ‘MOT Bit (XSTO) Not Set During Rewind (Extended Features Mode) * 

5170 072601 111 156 164 I35INT: .ASCIZ ‘Interrupt Received After REWIND Command (IE Bit Not Set)’ 

5171 072672 117 120 115 T3SOPM: .ASCIZ ‘OPM Bit (XST2) Not Set During Rewind (Extended Features Mode)‘ 

5172 072770 124 123 123 T35RWE: .ASCIZ ‘TSSR Incorrect After Extended Features REWIND Command’ 

5173 073056 116 157 040 T35NIN: .ASCIZ ‘No Interrupt Detected After REWIND IMMEDIATE’ 

5174 073133 105 170 164 TST3SID: eASCIZ ‘Extended Mode Functions’ 

5175 EVEN 

2179 % 

5178 SROUTINE TO RESTORE COMMAND An taal TO START-UP (DEFAULT) VALUES 

ates : WRITE SUBSYSTEM MEMORY COMMAND 

5181 s° 

5182 

5183 073164 T35REST: 

5184 073164 SAVREG ;SAVE THE 3 atin & 

5185 073170 012701 067370 MOV #T35PACKET,R1 ;START OF THE PACKE 

5186 073174 012721 100004 MOV #100004, (Ri)+ WRITE SUBSYSTEM NEN. WITH ACK 

5187 073206 012721 067400 MOV aTSSDATA, (R1)+ SADDRESS OF CHARAISTICS DATA BLOCK 

5188 073204 005021 CLR sEXTENDED ADDRESS 





— 


| 
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3246 
99 073252 


340 

5223 Or aees 
073342 
073342 


000207 


012701 


0 
000207 


104401 


FEATU 


000012 
067412 


000024 
000000 
000030 
177777 


000000 


067500 
100006 
067520 
000006 


067520 


067510 


067412 64$: 


T35RT2: 


T35RT3: 


ENDTST 





N 
1-8 nH MACRO M1113 25-MAY=82 08:43 PAGE 1371 


#10.,(R1)+ 
Ei naa (R1)+ 


#20, ARID 
i. (RI 


#24. ,R2 
#172770 ,T13SBFR(R2) 


70. 2 
64 4$ 


#T35PK2,R1 
#100006, (R1)+ 
AL ales (R1)+ 
as. sR) 

wT 33Br2, R1 
(RD 

PC 

#T35PK3,R1 
(R1)+ 


(R1)+ 
(R1)+ 


SIZE _OF DATA BLOCK IN BYTES 


sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 
SELECT DRIVE ZERO 
; NUMBER 


OF LOCATIONS TO BE CLEARED 
ALL _ONES TO ee BUFFER 


NEXT yet 
T END OF 


YET 
ZKEEP GOING” UNTIL DONE 
;RETURN 


SAVE THE REGISTERS 
START OF THE PACKET 


:POINT TO DATA SEL AREA 


;WRITE SUBSYSTEM as * ome ACK, 


ZADDRESS OF DATA BLO 
sEXTENDED ADDRESS 
3SIZE OF DATA BLOCK IN BYTES 


RETURN 


sSAVE REGISTERS 
SET UP POINTER ADDRESS 
D SPACE 


; COMMAN' 
ADDRESS y! anaes BLOCK 


sEXTENDED A 


DRESS 
qe iy DATA TRANSFER BLOCK 


L10063: 


TRAP 


CSETST 


SEQ 0245 


ati ol 


“4 
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TEST 8: RECORD BUFFERING 


PPP A PAP AAA AIA 
RAR 


yt ete Ne Ne 


Sethe 
BE RWWW 
N—OOON 


Pe Se Se Be Se Fe Be Be Be Se Ge Ge Be Ge Be Ge Ge Be Fe Ge Be Ge Be Be Se Ge Be Ge Se Fe Be Ge Be Be Se Be Be Be Be Ge Ge Be Se Ge Be Be Be Ge Se Se Sse Be Fe Se Se Se 


+ 


-SBTTL TEST 8: RECORD BUFFERING 


THIS 434 eT che THAT RECORD BUFFERING, USED FOR WRITE _ 
AND READ NEXT COMMANDS, OPERATES PROPERLY we - mh 


(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACE 
INTO THAT MODE BY ate gg be. THE SENSE OF THE SwiTCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 


VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
ay ot LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 


1. THE TAPE IS REWOUND. 


2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 


3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 


5. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
IS ISSUED, AND THE PROGRAM COUNTS, IN A WAIT LOOP, THE 
TIME IT TAKES TO RECEIVE COMMAND TERMINATION. THIS 
erty A RELATIVELY LONG TIME SINCE BUFFERING IS 


6. BUFFERING IS ENABLED. 


7. THE WRITE DATA_COMMAND IS AGAIN ISSUED, WITH ys SAFE 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME T 
COMPLETION IS AGAIN MEASURED. 


8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERF.) AND 
BUFFERED CASES ARE COMPARED. IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 


9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3.5K. 


THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 


SEQ 0246 





5283 073344 


529 Ov33re 


5308 073400 
00 


104402 
004737 
004737 


000000 
013727 


4 


0S 
6 


000250 
002116 
177772 
177756 
075732 
002214 


002174 
075560 
010742 


002214 
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TEST 8: RECORD BUFFERING 


SEQ 0247 


BGNTST ‘- 
002172 MOV #EPRTI EPRTSW :PRIMARY ERROR MESSAGE 
JSR PC ,KTOFF STURN OFF KT11 
MOV #TST361D, RO ASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP :D0 INITIAL TEST SETUP 
002210 MOV #5. LOOPCNT [PERFORM 5 ITERATION 
CLR T36CNT SCLEAR TAPE RECORD COUNTER 
Ze 
:TEST 8, SUBTEST 1 
VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
THE TAPE 1S POSITIONED AT BOT CAUSES FUNCTION REJECT 
RMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
:ERROR BIT SET. 
T36LOOP: 
BGNSUB p>>>>>>>>>>>> wt eaalalae >>>>>>>>>>>> 
TRAP  C$BSUB 
JSR PC, T36REST T COMMAND PACKET 
JSR PC. T36RT2 :SET UP OTHER COMMAND PACKET 
JSR PC. T36RT3 ZSET UP OTHER COMMAND PACKET 
075732 MOV #65000. ,T36DLY :SET UP DELAY COUNTER 
CLR N [CLEAR COUNTER 
10$: JSR PC, SOFINIT :D0 INITIALIZE ON CONTROLLER 
BCS 0$ R IF INIT WAS OK 
DELAY 250 {DELAY ABOUT .25 S$ 
MOV #250, (PC)+ 
.WORD 
MOV LSDLY, (PC)+ 
«WORD 
DEC -6(PC) 
BNE 4 
DEC ~22(PC) 
BNE .-20 
DEC T36DLY :BUMP COUNTER 
BNE 10$ BR, IF COUNTER NOT DONE 
INC FATFLG R COUNT 
MOV RO,R1 = CONTENTS OF TSSR REGISTER 
ERRDF ERRNO,SFIERR,SFIMSG [FATAL ERROR TSSR WAS NOT OK 
TRAP CSERDF 
.WORD 801 


075600 20$: Mov UNITN, T36DSW 
MOV #T36PACKET, R4 
JSR PC,WRTCH 
BCS 25$ 
INC FATFLG 


MOV RO,R1 
ERRHRD ERRNO, WRTMSG, SF IMSG 


«WORD SFIERR 
WORD SFIMSG 
SET UP DRIVE NUMB 


: SUBROUTINE NEEDS. PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
:BR, I wignnon 0 ISSUED OK 

:SAVE CONTENTS TSSR 

cURITE. CHARACTERISTI Sc FAILED 


oe 


D4 
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CSERHRD 


TEST 8: RECORD BUFFERING SEQ 0248 
073540 16445 TRAP CSERHRD 
073542 00144 .WORD 802 
073544 00505 “WORD WRTMSG 
073546 012114 “WORD SFIMSG 

5335 073550 25$:  CKLOOP :LOOP IF SELECTED 
073550 104406 TRAP _— C$CLP1 

5336 073552 004737 011074 JSR PC REWIND :CALL TAPE REWIND COMMAND 

5337 073556 103407 BCS 30$ IF NO PROBLEM 

5338 073560 010004 MOV t “SET UP REWIND PACKET ADDRESS 

5339 073562 005237 002214 INC FATFLG sERROR COUNT 

5343 073566 ERRHRD ERRNO, T36RWN,PKTSSR sREWIND NOT ACCEPTED 
073566 10445 TRAP  CSERHRD 
073570 001443 .WORD 803 
073572 077153 “WORD  T36RWN 
073574 012126 ~WORD PKTSSR 

5344 073576 30$:  CKLOOP :LOOP IF SELECTED 
073576 104406 TRAP CSCLP1 

5345 073600 013701 075610 MOV T36BER+6, R1 :PICK UP XSTO 

5346 073604 010102 MOV R1,R2 :SET UP EXPECTED 

5347 073606 052702 000002 BIS #BIT1,R2 SET BOT seit IN EXPECTED 

5348 073612 020102 CMP 1,R2- [DOES EXP = REC'D 

5349 073614 001406 BEQ SBR, IF EQUAL (OK) 

5350 073616 005237 002214 INC FATFLG SERROR COUNT 

5354 073622 ERRHRD ERRNO, T36B0T, EXPREC 3; TAPE NOT AT BOT AFTER REWIND 
073622 104456 TRAP — CSERHRD 
073624 001444 «WORD 804 
073626 076647 “WORD  T36B0T 
073630 015554 “WORD EXPREC 

5355 073632 40$:  CKLOOP ;LOOP IF SELECTED 
073632 104406 TRAP — C$CLP1 

5356 073634 013737 002174 075600 MOV UNITN, T36DSW :SET UP DRIVE NUMBER 

5357 073642 052737 000010 075600 BIS #B1T3.T36DSW STURN OFF BUFFERING CAPABILITY 

5358 073650 012704 075560 MOV #T36PACKET,R4 : SUBROUT INE NEEDS PACKET ADDRESS 

5359 073654 004737 010742 JSR PC ,WRTCH ISSUE WRITE CHARACTERISTICS 

5360 07 103407 BCS 50$ ‘BR. IF COMMAND ISSUED Ok 

5361 07 005237 002214 INC FATFLG RR a 

5365 07 10001 MOV RO,R1 :SAVE CONTENTS OF TSSR 

5366 073670 ERRHRD ERRNO,WRTMSG, SF IMSG SWRITE CHARACTERIST SC FAILED 
073670 104456 CSERHRD 
073672 001445 TeoRD 805 
073674 005052 “WORD WRTMSG 
073676 012114 ~WORD SF IMSG 

5367 073700 50$:  CKLOOP :LOOP IF SELECTED 
073700 104406 TRAP — C$CLP1 

5368 073702 012737 003720 075706 MOV #2000. 136S2 :SET UP RECORD SIZE 

5369 073710 013737 003116 075702 MOV 6WB SADDRESS OF WRITE FF 

5370 073716 012737 140005 075700 MOV H1s0605, T36PK3 [WRITE DATA,ACK,CVC=1 COMMAND 

5371 073724 012704 075700 MOV #73 [SET UP R4 WITH PACKET ADDRESS 

5372 073730 010465 000000 MOV Ra TspBins) S ISSUE COMMAND 

5373 073734 004737 016330 JSR PC. WAITF [WAIT FOR SSR TO SET 

5374 073740 016501 000002 MOV TSSR(R5) RI 'GET TSSR CONTENTS 

5375 073744 012702 000200 MOV #SSR_R2 :SET UP EXPECTED 

5376 073750 020102 CMP 1,R2 TARE THEY EQUAL 

5377 073752 001406 BEQ 0$ :BR, IF OK 

5378 073754 005237 002214 INC FATFLG sERROR COUNT 

5382 073760 ERRHRD ERRNO,WRTERR,PKTSSR ZTSSR INCORRECT AFTER READ DATA 
073760 104456 TRAP 
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| TEST 8: RECORD BUFFERING SEQ 0249 
| : 

073762 061446 «WORD 806 
073764 005107 “WORD WRTERR 
073766 012126 “WORD PKTSSR 

5383 073770 60$:  CKLOOP :LOOP IF SELECTED 
073770 104406 TRAP — C$CLP1 

5384 073772 012737 000012 075732 MOV #10. ,T36DLY :DELAY FOR TAPE TO STOP 

5385 074000 i 70$: DELAY 250 TDELAY ROUTINE CALL 
074000 012727 000250 MOV #250, (PC)+ 
074004 000000 . WORD 

74 013727 002116 MOV LSDLY, (PC)+ 

074012 000 . WORD 
074014 005367 177772 DEC -6(PC) 
074020 001375 BNE - 
074022 005367 177756 DEC =22(PC) 
074026 001367 BNE .-20 

5386 074030 005337 075732 DEC T36DLY :BUMP COUNTER DOWN 

5387 074034 001361 BNE 70$ :BR, IF MORE DELAY TO GO 

5388 074036 012737 006642 075706 MOV #3490. ,136SZ ZSET SIZE OF TRANSFER 

5389 074044 012737 140005 075700 MOV nioubs, T36PK3 [WRITE DATA,ACK,CVC=1 COMMAN 

5390 074052 012704 075700 MOV #T36PK [SET UP R4 WITH PACKET ADDRESS 

5391 074056 005037 075726 CLR ween” [CLEAR COUNTER 

5392 074062 012737 001750 075732 MOV #1000. , T36DLY :SET DROP DEAD COUNTER VALUE 

5393 074070 010465 000000 MOV R4, TSDB(RS) ZISSUE COMMAND 

5394 074074 016501 000002 80$: MOV TSSR(RS) R1 ‘GET TSSR CONTENTS 

5395 074100 032701 000200 BIT #SSR,R CHECK FOR SSR SET 

5396 074104 001021 BNE 90$ :BR, If SSR IS SET 

5397 074106 005237 075726 INC T36CNT [BUMP CYCLE COUNTER 

5398 074112 DELAY 1 :CUT NUMBER OF LOOPS DOWN 
074112 012727 000001 MOV #1, (PC)+ 
074116 000000 .WORD 0 
074120 013727 002116 MOV LSDLY, (PC)+ 
074124 000000 -WORD 0 
074126 005367 177772 DEC -6(PC) 
074132 001375 BNE 24 
074134 005367 177756 DEC -22(PC) 
074140 001367 BNE .-20 

5399 074142 005337 075732 DEC T36DLY :BUMP DROP DEAD COUNTER 

5400 074146 001352 BNE 80$ 7BR, IF THERE IS STILL TIME 

5401 074150 012702 000200 90$: MOV #SSR,R2 [SET UP EXPECTED 

5402 074154 020102 CMP R1,R2 TARE THEY EQUAL 

5403 074156 001406 BEQ 100$ :BR, IF Ok 

5404 074160 005237 002214 INC FATFLG sERROR COUNT 

5408 074164 ERRHRD ERRNO, T36WDE,PKTSSR ZTSSR INCORRECT AFTER READ DATA 

104456 TRAP — CSERHRD 

074166 001447 «WORD &07 
074170 076575 “WORD T36WDE 
074172 012126 “WORD PKTSSR 

5409 074174 100$:  CKLOOP ;LOOP IF SELECTED 

74174 104406 TRAP  CS$CLP1 

5410 074176 013737 002174 075600 MOV T36DS :SET UP DRIVE NUMBER 

5411 074204 052737 000030 075600 BIS Maltsiaite, T36psw [TURN ON THE BUFFERING 

5412 074212 012704 075560 MOV #T36PACKET RG S SUBROUTINE NEEDS PACKET ADDRESS 

5413 074216 004737 010742 JSR PC,WRTCH “3 TISSUE WRITE CHARACTERISTICS 

5414 074222 103407 BCS 116$ BR, IF COMMAND ISSUED OK 

5415 074224 005237 002214 INC FATFLG oie R COUNT 

5419 074230 010001 MOV RO,R1 ySAVE CONTENTS OF 


P TSSR 
5420 074232 ERRHRD ERRNO,WRTMSG, SF IMSG ‘ORITE. CHARACTERISTIC FAILED 





oe 
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074232 
074234 
074236 


074240 
5427 07426 
07424 


320 

074324 
074326 
074332 
74334 
074340 
074342 
074346 

5433 074350 
5434 074354 
5435 074356 
5436 074362 
5437 Beetee 


074400 
5443 074402 
074402 
5444 074404 
5445 074410 


5452 074424 
424 

074426 
074430 
074432 

5453 074434 
5454 074436 
074436 


074436 
5455 074440 
5456 074446 
5457 074450 
5458 074454 


Sssscses 
20244 


032701 


104456 
001451 
005107 
012126 


003406 
005237 
104456 
001452 
075734 
015554 
104406 


104403 


004737 


006642 
140005 
075700 
075730 
001750 
00000 

000002 
000200 
075730 
¢00001 
002116 
177772 
177756 
075732 
000200 


002214 


075726 
075730 


002214 


002214 
017262 


075706 
075700 


075732 


000017 


1108: 


120$: 


130$: 


140$: 


300$: 


999$: 


CKLOOP 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 
ENDSUB 





#3490. ,136SZ 
#140003, T36PK3 
#T36PK3.RG 
T36CNU 

#1000. .T360L1 
R4,TSDB(R 
TSSR(RS), Py 
#SSR,R1 


130$ 
casted 


T36DLY 
120$ 
#SSR,R2 
R1,R2 
140$ 


FATFLG 
ERRNO, ,WRTERR,PKTSSR 


T36CNT,RI1 
T36CNU,R2 
R2,R1 


FATFLG 
ERRNO, T36NAS ,EXPREC 


FATFLG,#15. 
PC,CKDROP 


TRAP 

- WORD 

«WORD 

- WORD 
sLOOP IF SELECTED 


:SET SIZE OF on tecet 
ZWR 


: R_ COUNT TER 
SET DROP DEAD COUNTER VALUE 
OMMAND 


21S C 
GET TSSR CONTENTS 
ZCHECK FOR SSR SET 


:BUMP DROP DEAD COUNTER 
2BR, IF THERE IS STILL TIME 
SET UP EXPECTED 
zARE THEY EQUAL 

IF OK 


7BR, 
sERROR COUNT 

sTSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 809 
-WORD WRTERR 
-WORD PKTSSR 

;LOOP IF SELECTED 
TRAP CSCLP1 


GET FIRST COUNTER 
GET SECOND COUNTER 
COMPARE EM 


E 
BR, IF VALUES ARE CORRECT (Ok) 
COUNT 


sERR 
;TAPE NOT AT CORRECT we 


GORD 

. WORD 

- WORD 
:LOOP IF SELECTED 


L10071: 
TRAP 
71S ERROR COUNT AT 25 


2BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


SEQ 0250 
CSERHRD 
808 
WRTMSG 
SF IMSG 


CSCLP1 


#1, (PC)+ 
LSDLY, (PC)+ 
o6cPC) 
-23P¢) 

20 


ee Ee a SS a ey te 


CSERHRD 
810 


T36NAS 
EXPREC 


CSCLP1 


CSESUB 


SF rr 
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+ 


[TEST 8, SUBTEST 2 


THIS TEST ed THAT pa Sy BUFFERING, USED FOR WRITE DATA 
D READ NEXT COMMAND RA E 


(AS CONTROLLED BY THE DIP SWITCH ON THE LE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND. NOTE = Smite” BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 


PARTIALLY TESTED ALREADY. THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 


VERIFIES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
ay a LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 


1. THE TAPE IS REWOUND. 


2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 


3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 


THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 


5. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
1S ISSUED, AND THE PROGRAM COUNTS, IN A WAI: les -* HE 


I THI 
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
DISABLED. 


6. BUFFERING IS ENABLED. 


7. THE WRITE DATA COMMAND IS AGAIN seSUED wg te THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 


8. THE COMPLETION TIMES MEASURED FOR THE NON-BUFFERED AND 
Wee eee CASES ARE COMPARED. IT IS VERIFIED THAT THE 

TIME MEASURED FOR THE NON-BUFFERED CASE IS MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 


9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE mereatee FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3.5K. 


Pete Se Se Be Se Se Be Be Be Ge Fe Ge Be Ge Be Se Be Be Be Be Be Be Be Ge Ge Ge Be Ge Fe Ge Be Be Ge Ge Be Be Be Be Be Se Be Be Se Be Se Se Se Be Se Ss Se 
* 
. 


BGNSUB 3>>>>>>>>>>>> CESie ASTEST >>>>>>>>>>>> 





SEQ 0251 


; 


—— 


rm ere a a nr 
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074454 


Ab Ab Ab Ab AL AD ADA 


074630 
5543 074632 
074632 
5544 074634 


177772 
177756 
075732 
002214 


002174 
0 


6 
010742 
002214 


011074 


002214 


075610 
000002 


002214 


075732 


10$: 


075600 20S: 
075600 


25$: 


30$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


PC, T36REST 
PC, T36RT2 


PC’ T36RT3 
#65000. ,T36DLY 
T36CNT 
PC, SOF INIT 

20$ 

250 


T36DLY 
10$ 
FATFLG 


RO,R1 
ERRNO, SFIERR,SFIMSG 


UNITN, T36D0SW 
#8115, 1360SW 
#TS6PACKET ,R4 
PC ,WRTCHR 


25$ 


FATFLG 


RO,R1 
ERRNO,WRTMSG, SF IMSG 


PC REWIND 
30$ 
RO.R4 


FATFLG 
ERRNO, T36RWN,PKTSSR 


T36BER+6,R1 
#BiT1,R2 
R1,R2 


40 
FATFLG 


TRAP 
;SET COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP DELAY COUNTER 
CLEAR COUNTER 
209 ie htt was ox CONTROLLER 
DELAY ABOUT .25 SEC 


BUMP COUNTER 
BR, IF COUNTER NOT DONE 


ERROR COUNT 
sCONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS NOT OK 


:SET UP DRIVE NUMBER 
: TURN ON HIGH SPEED 


SEQ 0252 
C$BSUB 


#250, (PC)+ 
LSDLY,(PC)+ 
=6(PC) 

4 

=22(PC) 


72 


CSERDF 
811 

SFIERR 
SF IMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 


ISSUE WRITE CHARACTERISTICS 
:BR, IF SERROR COUNT OK 


;ERROR COUNT 
SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTI SC ay 


TZORD 

«WORD 

- WORD 
LOOP IF SELECTED 

TRAP 


sSAuL ~~ oe ny COMMAND 
IF NO PROBLEM 
Set UP REWIND PACKET ADDRESS 
COUNT 


; ERROR 
;REWIND NOT ACCEPTED 


sLOOP IF SELECTED 


zPICK UP _XSTO 

sSET UP_ EXPECTED 

:SET BOT BIT IN EXPECTED 

DOES EXP = REC'D 

:BR, IF EQUAL (OK) 
ERROR COUNT 


CSERHRD 
812 

WRTMSG 
SF IMSG 


CSCLP1 


CSERHRD 
813 
T36RWN 
PKTSSR 


CSCLP1 





————__ ee a Se 
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| 
| TEST 8: RECORD BUFFERING SEQ 0253 
| §562 074706 ERRHRD ERRNO, 136B0T, EXPREC ;TAPE NOT AT BOT AFTER REWIND 
074704 104456 TRAP  CSERHRD 
074706 001456 «WORD 814 
| 074710 076647 “WORD T36B0T 
074712 015554 -WORD EXPREC 
5563 074714 40$:  CKLOOP sLOOP IF SELECTED 
074714 104406 TRAP — C$CLP1 
5564 074716 013737 002174 075600 MOV UNITN, T36DSW :SET UP DRIVE NUMBER 
5565 074724 052737 000010 075600 BIS #BIT3.T36DSW STURN OFF BUFFERING CAPABILITY 
5566 074732 012704 075560 MOV #TSGPACKET, RG SSUBROUTINE NEEDS PACKET ADDRESS 
5567 074736 004737 010742 JSR PC,WRTCHR TISSUE WRITE CHARACTERISTICS 
5568 074742 103407 BCS 50$ :BR, IF COMMAND ISSUED Ok 
5569 074744 005237 002214 INC FATFLG SERROR C 
5573 074750 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
5574 074752 ERRHRD ERRNO,WRIMSG, SF IMSG SWRITE CHARACTERISTISC FAILED 
074752 104456 CSERHRD 
074754 001457 TeORD 815 
074756 005052 “WORD WRTMSG 
07476C 012114 .WORD SFIMSG 
5575 074762 50$:  CKLOOP ;LOOP IF SELECTED 
074762 104406 TRAP _— C$CLP1 
5576 074764 012737 003720 075706 MOV #2000, 136SZ :SET UP RECORD SIZE 
5577 074772 013737 003116 075702 MOV SADDRESS OF WRITE BUFFER 
5578 075000 012737 140005 075700 MOV wie0005~ T36PK3 :WRITE DATA, ACK,CVC=1 COMMAND 
5579 075006 012704 075700 MOV #T36PK3_RG SSET UP R4 WITH PACKET ADDRESS 
5580 075012 010465 000000 MOV R4, TSDB(RS) : ISSUE COMMAND 
5581 075016 004737 016330 JSR PC.WAITF [WAIT FOR SSR TO SET 
5582 075022 016501 000002 MOV TSSR(R5),R1 [GET TSSR CONTENTS 
5583 075026 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
5584 075032 020102 CMP R1,R2 TARE THEY EQUAL 
5585 075034 001406 BEQ 60$ :BR, IF OK 
5586 075036 005237 002214 INC FATFLG sERROR COUNT 
5590 075042 ERRHRD ERRNO,WRTERR,PKTSSR :TSSR INCORRECT AFTER READ DATA 
075042 104456 TRAP  CSERHRD 
075044 001460 .WORD 816 
75046 005107 “WORD WRTERR 
075050 012126 “WORD PKTSSR 
5591 075052 60$:  CKLOOP ;LOOP IF SELECTED 
075052 104406 TRAP  C$CLP1 
5592 075054 012737 000012 075732 MOV #10. ,T36DLY :DELAY FOR TAPE TO STOP 
5593 075062 70$: DELAY 250 [DELAY ROUTINE CALL 
075062 012727 000250 MOV #250, (PC)+ 
075066 000000 .WORD 0 
075070 013727 002116 MOV LSDLY,(PC)+ 
075074 000000 «WORD 0 
075076 005367 177772 DEC -6(PC) 
075102 001375 BNE fe 
075104 005367 177756 DEC -22(PC) 
075110 001367 BNE .-20 
5594 075112 005337 075732 DEC T36DLY ;BUMP COUNTER DOWN 
5595 075116 001361 BNE 70$ :BR, IF MORE DELAY TO GO 
5596 075120 012737 006642 075706 MOV #3490. ,136SZ :SET SIZE OF TRANSFER 
5597 075126 012737 140005 075700 MOV #140005 , T36PK3 SWRITE DATA,ACK,CVC=1 COMMAND 
5598 075134 012704 075700 MOV #T36PK3.R4 [SET UP R4 WITH PACKET ADDRESS 
5599 075140 005037 075726 CLR T36CNT ‘CLEAR COUN 
5600 075144 012737 001750 075732 MOV #1000. ,T36DLY [SET DROP DEAD COUNTER VALUE 
5601 075152 010465 000000 MOV R4, TSDB(RS) SISSUE COMMAND 





| TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 130-3 
TEST 8: RECORD BUFFERING 


5602 075156 
5603 075162 
604 075166 
5605 075170 
5606 oraite 


5627 075312 
5628 075314 
075314 


075322 
5629 075324 
075324 
5630 075326 


075422 


016501 


000000 
013727 


2S 
mu 


ooo oO 


S 


000002 
000200 


075726 
000001 
002116 
177772 
177756 
075732 
000200 


002214 


002174 


0 
010742 
002214 


000 

000200 
075730 
000001 
002116 
177772 


075600 
075600 


075706 
075700 


075732 


80$: 


90$: 


100$: 


110$: 


120$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 


DELAY 





TSSR(R5),R1 
SSR,R1 


$ 
1secnt 


T36DLY 
#SSR,R2 
R1,R2 
100$ 


FATFLG 
ERRNO, T36WDE ,PKTSSR 


UNITN, T36DS 
welTSielTs. T36psw 
#T36PACKET,R4 

PC URICHR 

FATFLG 

RO,R1 
ERRNO,WRTMSG, SF IMSG 


#3490. ,136S2 
#140003, - TSOPKS 


GET TSSR CONTENTS 
CHECK FOR SSR SET 


BUMP DROP DEAD COUNTER 
s6R, IF THERE IS STILL TIME 
:SET UP EXPECTED 

sARE THEY EQUAL 


2BR, IF OK 
sERROR COUNT 
sTSSR INCORRECT AFTER READ DATA 
TRAP 
- WORD 
- WORD 
- WORD 
sLOOP IF SELECTED 
TRAP 


4 i UP DRIVE NUMBER 
URN ON THE BUFFERING 


SEQ 0254 


#1,(PC)+ 
LSDLY, (PC)* 
=6(PC) 

4 

-22(PC) 


72 


CSERHRD 
817 
T36WDE 
PKTSSR 


CSCLP1 


: SUBROUTINE NEEDS at teniet — 


ISSUE WRITE CHARACT 
BR, IF COMMAND ISSUED OK 
RR aed 


sERROR 
;SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTI SC Bost y 


GORD 

= WORD 

«WORD 
LOOP IF SELECTED 


SET SIZE OF gree 
SWRITE DATA,ACK,CVC=1 


COMMAND 
SET UP R4 W wid PACKET ADDRESS 


CLEAR COUNTE 
2SET DROP DEAD COUNTER VALUE 


2 ISSUE 
:GET TSSR CONTENTS 
+ CHECK FOR SSR SET 


YCLE COUNTER 
;CUT NUMBER OF LOOPS DOWN 
MOV 
- WORD 
MOV 
- WORD 


CSERHRD 
818 

WRTMSG 
SF IMSG 


CSCLP1 


#1, (PC)+ 
LSDLY.(PC)+ 
~6(PC) 

4 


—eow 
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Leng + 005367 177756 


075430 00136 

5641 075432 005337 075732 DEC T36DLY 

648 075436 001352 BNE 120$ 

5643 075440 012702 000200 130$: MOV #SSR,R2 

5644 075444 020102 CMP R1,R2 

5645 075446 001406 BEQ 140$ 

5646 075450 005237 002214 INC FATFLG 

5650 075454 ERRHRD ERRNO,WRTERR,PKTSSR 
075454 104456 


075456 001463 
075460 005107 


075462 012126 

5651 075464 140$:  CKLOOP 
75464 104406 
5652 075466 013701 075726 MOV T36CNT,R1 
5653 075472 013702 075730 MOV T36CNU.R2 
5654 075476 020201 CMP R2,R1 
5655 075500 003406 BLE 300$ 
5656 075502 005237 002214 INC FATFLG 
5660 075506 ERRHRD ERRNO, T36NAS,EXPREC 
5506 104 

075510 001464 

075512 075734 

075514 015554 
5661 075516 300$:  CKLOOP 

075516 104406 
5662 075520 ENDSUB 

075520 

075520 104403 
5663 075522 023727 002214 000017 CMP FATFLG,#15. 
5664 075530 103402 BLO 999$ 
5665 075532 004737 017262 JSR PC, CKDROP 


5666 075536 999$: 





SEQ 0255 
DEC =22(PC) 
E -720 
;BUMP DROP DEAD COUNTER 
‘BR, IF THERE IS STILL TIME 
'SET UP EXPECTED 
TARE THEY EQUAL 
;BR, IF OK 
;ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 
TRAP CSERHRD 
-WORD 819 
-WORD WRTERR 
-WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sGET FIRST COUNTER 
:GET SECOND COUNTER 
;COMPARE EM 
‘BR, IF VALUES ARE CORRECT (OK) 
TAPE Not AT CORRECT SPEED 
TRAP CSERHRD 
-WORD 820 
-WORD T36NAS 
-WORD EXPREC 
;LOOP IF SELECTED 
TRAP CSCLP1 
L10072: 
CS$ESUB 


RAP 
1S ERROR COUNT AT 25 
zBR, IF LESS THAN 25 
:TRY TO DROP f;HE UNIT 













L 4 
TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 131 


TEST 8: RECORD BUFFERING SEQ 0256 
5668 : 
2659 . 
5671 075536 004737 016536 ‘ JSR PC, TSTLOOP ;D0 WE NEED TO ITERATE TEST 
5672 075542 103002 BCC 163$ 7BR, IF NO LOOP REQUIRED 
5673 075544 000137 073400 JMP T36LOOP SEXECUTE AGAIN 
5674 075550 163$: 
5675 075550 EXIT TST zALL DONE THIS TEST 
075550 104432 TRAP  CSEXIT 


075552 003356 . -WORD 110070-. 





act 


————————_—_ 
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56 
5694 075602 


99 
5701 075670 


04 
are 075676 
5710 075700 
1 7 


7 
5715 075706 
6 
c 
5720 075710 


5724 075714 


5730 075716 


5733 075724 
34 


35 
5736 075726 
5737 075730 
5738 075732 
5739 


075560 


075602 
000000 
000024 
000 


075670 
100006 
000006 
100005 
003116 


000000 
000000 


010 
200 
000000 
000000 
100205 
177777 


000000 


:LOCAL STORAGE FOR THIS TEST 


.=<.+10>8177770 
rsepacrel 

-WORD 100004 

«WORD aaron 


COMMAND PACKET FOR TEST 
WRITE CHARACTERISTICS COMMAND, WITH 
ZADDRESS OF CHARACTERISTICS BLOCK 


“WORD 
‘wORD 10. ZSTARTING VALUE OF BLOCK SIZE 
- T36DATA: [CHARACTERISTICS DATA BLOCK 
- WORD T36BFR SADDRESS OF MESSAGE BUFFER 
- WORD 20. ZLENGTH OF MESSAGE BUFFER 
T36DSW: .WORD 0 :SELECT DRIVE 0 
T36BFR: .BLKW 25. [MESSAGE BUFFER 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 


. =<. +10>8177770 
T36PK2: 
-WORD 100006 


WRITE SUB SYS MEM COMMAND, AND ACK 
«WORD aah 


SADDRESS OF SELECT BLOCK DATA 


“WORD 
[WORD 6. :SIZE OF DATA PACKET 

T36PK3: 

Se .WORD 100005 ;REREAD COMMAND, AND ACK 

T36WB: - WORD FREE ZADDRESS OF WRITE BUFFER 

136SZ: .WORD 0 :SIZE OF BUFFER (EXTENT) 
SEVEN 

1 36BF 2: 

136BS0: .BYTE 10 :BSELO AREA 

136BS1: .BYTE 200 [BSEL1 AREA 

136S2: WORD 0 [SEL 2 AREA 

13653: WORD 0 [DATA AREA 


-EVEN 
;TAPE MOTION PACKET COMMAND VALUES 


T36RN: .WORD 100205 
T36WDR: .WORD 100605 


T36CON: .WORD 5 : 
WORD 7 SEND OF DATA 


REREAD DATA (NEXT) 


TAPE TIMER COUNTER STORAGE AREA 
: TAPE TIMER COUNTER STORAGE AREA 


T36DLY: .WORD DELAY COUNTER 


SEQ 0257 


- ACK 


mer 


air Pair Arai rirwrwirAr.Os warrior Vn f nin MN MM MMM MM MMMM MMM MMMM MMM MMM MMMM Me eH we es = eS ‘A 





] 
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T 

TEST 8: RECORD BUFFERING SEQ 0258 s 
5741 L 
5742 3+ L 
5743 sLOCAL TEXT MESSAGES FOR TEST L 
5744 :- L 
5745 L 
5746 ; L 
5747 075 124 141 160 T36NAS: .ASCIZ ‘Tape Drive Is Not — At 100 Inches Per Second’ L 
5748 076017 124 141 160 T36WNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (OPP=1)' L 
5749 076105 124 123 123 T36RDF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ p L 
5750 076154 122 105 122 T36RRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ L 
5751 0762 120 117 123 T36SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ L 
5752 076333 122 111 102 T36LOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ L 
5753 07640 124 123 123 T36WDF: .ASCIZ '‘TSSR Not Correct After Illegal Mode Bits Set’ L 
5754 076460 111 154 154 T36L0Q: .ASCIZ opetogat Mode Bits, Failed To Set ILC Bit In XxSTO’ L 
5755 076541 122 105 122 T36SSR: .ASCIZ ‘REREAD COMMAND Not Accepted’ L 
5756 076575 124 123 123 T36WDE: .ASCIZ ‘TSSR Not Correct After WRITE DATA Command‘ L 
5757 07 124 141 160 T36B0T: .ASCIZ ‘Tape Not At BOT After REWIND Command (BOT Not Set In XSTO)' L 
5758 076742 127 122 111 T36TIM: .ASCIZ ‘WRITE DATA RETRY''S Erase Tape Not Long Enough’ L 
5759 077017 122 105 122 T36EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ L 
5760 077076 124 123 123 T36TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ L 
5761 07715 122 145 167 T36RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ L 
5762 077222 122 101 115 T36RNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram’ L 
5763 077275 124 123 123 T36AM3: .ASCIZ '‘TSSR Init. Failed After REREAD COMMAND‘ L 
5764 077 104 162 151 T360FL: .ASCIZ ‘Drive 7 Select Failed To Set ‘OFL'’ In TSSR' ; L 
5765 077417 124 123 123 T36WDD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ L 
5766 077507 124 123 123 T36WDC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ L 
5767 077562 103 126 103 T36VCK: .ASCIZ ‘CVC Set, Didn’’t Reset VCK In Message Buffer’ L 
5768 077635 124 123 102 T36BA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ L 
5769 077710 127 122 111 T36WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)" L 
5770 077777 122 145 141 T36LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO’ L 
5771 10006 122 145 141 T36LOP: .ASCIZ ‘Reading Long Record Failed fo Set RLS Bit In xSTO' L 
5772 100143 122 145 163 T36PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ L 
5773 100231 122 145 141 T36TRL: .ASCIZ een Lene Record Failed To Give Tape Stacus Alert’ L 
5774 100317 127 122 111 ONEF: .ASCIZ ‘WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3° L 
5775 100415 124 123 123 T36SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ L 
5776 100472 124 123 123 T36TSA: .ASCIZ '‘TSSR Not Correct After WRITE DATA RETRY, Into 6OT' L 
5777 100554 124 123 123 T36WRF: .ASCIZ '‘TSSR Not Correct After WRITE DATA RETRY Command’ L 
5778 100634 104 141 164 IT36DTA: .ASCIZ ‘Data Compare Error, Data Read From Tape Not Equal To Written’ L 
5779 100731 122 145 143 TST36ID: eASCIZ ‘Record Buffering’ L 
5780 -EVEN L 
5781 i+ L 
5782 ; . 
5783 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES L 
oree WRITE SUBSYSTEM MEMORY COMMAND , 
5786 i a 
5787 L 
5788 100752 T36REST: L 
5789 100752 SAVREG sSAVE THE REGISTERS L 
5790 100756 012701 075560 MOV #T36PACKET,R1 zSTART OF THE PACKET L 
5791 100762 012721 100004 MOV #100004, (Ri)+ WRITE SUBSYSTEM MEM. WITH ACK, L 
5792 100766 012721 - 075570 MOV #T36DATA, (R1)+ sADDRESS OF CHARAISTICS DATA BLOCK L 
5793 100772 005021 CLR (R1)+ sEXTENDED ADDRESS L 
5794 100774 012721 000012 MOV #10.,(R1)+ :SIZE_ OF DATA BLOCK IN BYTES L 
5795 101000 012721 075602 MOV #T36BFR,(R1)+ sADDRESS OF MESSAGE BUFFER L 
5796 101004 005021 CLR (R1)+ L 
5797 101006 012721 000024 MOV #20.,(R1)+ sLENGTH OF MESSAGE BUFFER L 
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5799 





101014 
aa00 ya 
5801 101024 


SSLIFEE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSSRRVSSANSEK 


000207 


012701 
0 


000207 


012701 


000207 


104401 


TEST 8: RECORD BUFFERING 
5798 1OISte 


000000 
000030 
177777 
000000 


075670 
100006 
075710 
000006 


075710 


075700 


(R1)+ 
#0,(R1) 


#24. ,R2 
#177777, T36BFR(R2) 
=(R2) 


#0,R2 
64$ 
PC 


#T36PK2,R1 
#100006, (R1)+ 
At sales 2(R1)+ 


bad 
crete. R] 
RD 

PC 
#T36PK3,R1 
(R1)+ 
(R1)+ 
(R1)+ 


(R1) 
PC 


—— 


SELECT DRIVE ZERO 
:NUMBER OF LOCATIONS TO BE CLEARED 
eer aie BUFFER 


T END OF LOOP YET 
iKEEP GOING” UNTIL DONE 
; RETURN 


SAVE THE REGISTERS 

START OF THE PACKET 

;WRITE SUBSYSTEM MEM. WITH ACK, 
ZADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

3SIZE OF DATA BLOCK IN BYTES 


POINT TO DATA SEL AREA 


SAVE REGISTERS 
SET UP POINTER ADDRESS 
COMMAND SPAC 


: ADDRESS OF ie 
E - DATA TRANSFER BLOCK 
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aeee 


| TEST 9: FUNCTION TIMING SEQ 0260 

5831 .SBTTL TEST 9: FUNCTION TIMING 

2g35 . 

5834 [THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 

5835 TRECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 

5836 [AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 

5837 :SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR ROR E, 

5838 [SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE OPERATE. Pue 

5839 [TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE R 

5840 REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE EST OPERATES BY 

5841 ZTIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 

5842 ‘DIFFERENT TEST RECORD LENGTHS. 

5843 : 

5844 : 

5845 s° 

5846 101132 BGNTST A; 

5847 101132 012737 006354 002172 MOV #EPRT1,EPRTSW : PRIMARY ERROR MESSAGE 

5848 101140 004737 017354 JSR PC ,KTOFF N KT OFF 

5853 101144 012700 105353 MOV #TST371D,RO ZASCII ni SSAGE TO IDENTIFY TEST 

5854 101150 004737 016570 JSR PC, TSTSETUP [D0 INITIAL TEST SETUP 

5855 101154 012737 000005 002210 MOV #5.LOOPCNT :PERFORM 5 ITERATIONS 

5856 101162 005037 102416 CLR T37CNT ZCLEAR TAPE RECORD COUNTER 
4 + 

5858 ; 

5859 :TEST 9, SUBTEST 1 

5860 3 

5861 : 

5862 : 

5863 ; 

5864 3° 

5865 


5866 101166 T37LOOP: 
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5868 10116 
101166 
101166 

5869 101170 

5870 101174 

5871 101200 

5872 101204 

5873 101210 

5874 101214 

5875 101220 

5876 101226 

5877 101232 

5878 101234 
101234 
101240 
101242 
101246 
101250 
101254 
101256 
101262 

5879 101264 

5880 101270 

5881 101272 

5885 101276 

5886 101300 
101300 
101302 
101304 
101306 

5887 101310 

5888 

5889 101316 

5890 101322 

5891 101326 

5892 101330 

5896 101334 

5897 101336 
101336 
101340 
101342 
101344 

5898 101346 
101346 

5899 101350 

5900 101354 

5901 101356 

5902 101362 

5903 101364 

5907 101370 
101370 
101372 
101374 
101376 

5908 101400 
101400 

5909 101402 


103426 
012727 
00 


010001 
104455 


013737 
012704 


on tt I OE 
Foon fon 


000250 
002116 
177772 
177756 
102422 
002214 


002174 


102250 
010742 


002214 


011074 
000002 
002214 


102300 


102422 


102270 208: 


23$: 


30$: 


M 
ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 
MOV 





INTRECV 
137 

T37CNU 

PC, TSPREST 
eet song 
#65000, T370L1 
PC,SOFINIT 


20$ 
250 


T37DLY 

10$ 

FATFLG 

RO,R1 
ERRNO, SF IERR, SF IMSG 


UNITN, T37DSW 
#T37PACKET,R4 
PC,WRTICHR 
23$ 


FATFLG 
RO,R1 
ERRNO, WRTMSG, SF IMSG 


— 
TSSR(R5S),R1 
RO,R4 


FATFLG 
ERRNO, T37RWN,PKTSSR 


T37BFR+6,R1 


SEQ 0261 


3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


a TTAen ton INDICATO 


TIMER FOR WRITE DATA S PACING 
; TIMER FOR WRITE DATA RETRY SPACING 
T COMMAND PA 


TRAP 


:D9 INITIALIZE’ ON CONTROLLER 


R IF INIT 
sDELAY ABOUT .25 SEC 


BUMP COUNTER 


BR, IF ree NOT DONE 
R_ COUNT 


: CONTENTS OF TSSR REGISTER 
FATAL ERROR TSSR WAS oa 


SET UP UNIT NUMBER 


C$BSUB 


#250, (PC)+ 
LSDLY, (PC)+ 
-6(PC) 

24 

=22(PC) 


CSERDF 
901 

SFIERR 
SF IMSG 


SUBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
:BR, IF COMMAND ISSUED OK 


7 SAVE 


CONTENTS OF TSSR 
[WRITE CHARACTERISTISC rene 


LOOP IF SELECTED 


GORD 
- WORD 
- WORD 


TRAP 


sCALL TAPE pt by COMMAND 


BR, IF NO PROB 
:GET TSSR CONTENTS 
:GET PACKET ae} 


sERROR COUNT 
REWIND NOT ACCEPTED 


LOOP IF SELECTED 
3PICK UP XSTO 


TRAP 
«WORD 
«WORD 
- WORD 


TRAP 


CSERHRD 
902 


WRTMSG 
SF IMSG 


CSCLP1 


CSERHRD 
903 


0 
T37RWN 
PKTSSR 


CSCLP1 
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a9 101406 010102 MOV R1,R2 SET UP EXPECTED 


5911 101410 052702 000002 BIS #BiT1,R2 ‘SET BOT BIT IN EXPECTED 
5912 101414 020102 CMP R1,R2 SDOES EXP = REC'D 
. §913 101416 001406 BEQ 40$ BR, IF EQUAL (OK) 
- $914 101420 005237 002214 INC FATFLG sERROR COUNT 
- $918 101424 ERRHRD ERRNO, 137B0T,EXPREC ;TAPE NOT AT BOT AFTER REWIND 
101424 104456 TRAP  CSERHRD 
101426 001610 «WORD 904 
101430 103271 “WORD 137B0T 
101432 015554 “WORD EXPREC 
- §919 101434 40$:  CKLOOP ;LOOP IF SELECTED 
101434 104406 TRAP _— C$CLP1 
 §920 101436 012703 000144 MOV #100. 783 ZNUMBER OF RECORDS TO BE WRITTEN 
$921 101442 013737 003116 102372 MOV ZSTARTING WRITE BUFFER ADDRESS 
5922 101450 012737 140005 102370 65$: MOV #160603,7 137PK3 SWRITE DATA,ACK,CVC=1 C D 
, 5923 101456 012704 102370 MOV #T37PK3_RG 3SET UP R4 WITH PACKET ADDRESS 
: 5924 101462 012737 (01130 102376 MOV #600. KT geez [SET UP RECORD SIZE IN PACKET 
5925 101470 010465 000000 MOV R4, TSDB(RS) S ISSUE COMMAND 
5926 101474 004737 016330 JSR PC.WAITF ‘WAIT FOR SSR TO SET 
‘$927 101500 016501 000002 MOV TSSR(R5S),R1 [GET TSSR CONTENTS 
5928 101504 012702 000200 MOV #SSR,R2 :SET UP EXPECTED 
5929 101510 020102 CMP R1,R2 TARE THEY EQUAL 
5930 101512 001406 BEQ 70$ 7BR, IF OK 
5931 101514 005237 002214 INC FATFLG sERROR COUNT 
'5935 101520 ERRHRD ERRNO, T37WDC,PKTSSR :TSSR INCORRECT AFTER WRITE DATA 
i 101520 104456 TRAP  CSERHRD 
101522 001611 «WORD 905 
101524 104131 “WORD T37wDC 
101526 012126 "WORD PKTSSR 
5936 101530 70$:  CKLOOP :LOOP IF SELECTED 
101530 104406 TRAP — C$CLP1 
5937 101532 005303 DEC R3 :DEC RECORD COUNTER 
5938 101534 001345 BNE 65$ ZBR, IF MORE RECORDS iO WRITE 
5939 101536 004737 011074 JSR PC ,REWIND i CALL TAPE REWIND COMMAND 
5940 101542 103411 BCS 130$ IF NO PROBLEM 
5941 101544 016501 000002 MOV TSSR(RS),R1 ert TSSR CONTENTS 
5942 101550 010004 MOV RO,R4 [GET PACKET ADDRESS 
5943 101552 005237 002214 INC FATFLG sERROR COUNT 
5947 101556 ERRHRD ERRNO, 137RWN,PKTSSR sREWIND NOT ACCEPTED 
101556 104456 TRAP — CSERHRD 
101560 001612 «WORD 906 
! 101562 103575 “WORD T37RWN 
101564 012126 -WORD PKTSSR 
5948 101566 130$:  CKLOOP :LOOP IF SELECTED 
101566 + 104406 TRAP — C$CLP1 
5949 101570 013701 102300 MOV T37BFR+6,R1 :PICK UP XSTO 
5950 101574 010102 MOV R1,R2 :SET UP EXPECTED 
5951 101576 052702 000002 BIS #BiT1,R2 [SET BOT BIT IN EXPECTED 
$952 101602 020102 . CMP R1,R2- ‘DOES EXP = REC'D 
5953 101604 001406 BEQ TAOS ‘BR, IF EQUAL (OK) 
5954 101606 005237 002214 INC FATFLG sERROR COUNT 
5958 101612 ERRHRD ERRNO, 137BOT,EXPREC :TAPE NOT AT BOT AFTER REWIND 
101612 104456 TRAP  CSERHRD 
101614 001613 «WORD 907 
101616 103271 “WORD 137BOT 
~ 101620 015554 -WORD EXPREC 
5959 101622 140$:  CKLOOP ;LOOP IF SELECTED 
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| 101622 104406 
5960 101624 012704 102370 
1 101630 012737 000037 
| $962 101636 010737 140010 
$963 101644 010465 0900000 
| $964 101650 005237 102416 
5965 101654 
~~ 101654 012727 000001 
101660 0 
| 101662 013727 002116 
. 101666 
- 101670 005367 177772 
101674 001375 
' 101676 5367 177756 
101702 001367 
5966 101704 016501 000002 
5967 101710 032701 000200 
5968 101714 001755 
5969 101716 012702 000200 
5970 101722 020201 
5971 101724 001406 
5972 101726 005237 002214 
5976 101732 
- 101732 10445 
‘ 101734 001614 
- 101736 105037 
_ 101740 012126 
5977 101742 
-. 101742 104406 
5978 101744 004737 011074 
5979 101750 103411 
5980 101752 010004 
5981 101754 016501 000002 
5982 101760 005237 002214 
5986 101764 
101764 104456 
‘ 101766 001615 
' 101770 103575 
_ 101772 012126 
5987 101774 
- 101774 104406 
5988 101776 013701 102300 
5989 102002 010102 
5990 102004 052702 000002 
5991 102010 020102 
5992 102012 0014 
5993 102014 005237 002214 
5997 102020 
- 102020 104456 
102022 001616 
102024 103271 
- 102026 015554 
5998 102030 
102030 104406 
5999 102032 012704 102370 
6000 102036 012737 000121 
102044 012737 140010 


160$: 


170$: 


175$: 


INC 
ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 





#137PK3 R4 

#31 RB 
#10610, T37PK3 
R4, TSDB(R5 


r3ecNT 


TSSR(R5),R1 
as 1 


#SSR,R2 
R2,R1 


FATFLG 
ERRNO, T37SCF ,PKTSSR 


PC REWIND 


170$ 

RO,R4 

TSSR(RS),R1 

ATFL 

ERRNO, T37RWN, PKTSSR 


T37BFR+6,R1 
R1,R 
#B1T1,R2 
R1,R2 


FATFLG 
ERRNO, T37B0T ,EXPREC 


#737PK3,R4 
#81. ,137RB 
#140010, 137PK3 


SEQ 0263 


TRAP CSCLP1 
SET UP PACKET ADDRESS 
SET UP RECORDS TO SPACE OVER 
sACK,CVC=1,SPACE FORWARD COMMAND 
3 1SSUE_COMMAND 
BUMP TIMER 
sDELAY ABOUT 100US 
MOV #1, (PC)+ 
- WORD 
MOV LSDLY,(PC)+ 
- WORD 
DEC -6(PC) 
BNE 24 
DEC -22(PC) 
BNE -- 
GET TSSR 
sCHECK FOR TSSR°S SSR SET 
KEEP COUNTING UNTIL SET 
:SET UP EXPECTED 
WAS EVERYTHING OK 
2BR, IF ALL IS WELL 
ERROR COUNT 
zSPACE FORWARD DIDN'T WORK OUT 
TRAP CSERHRD 
«WORD 908 
-WORD T37SCF 
«WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
CALL Mee REWIND COMMAND 
;BR, IF NO PROBLEM 
:GET PACKET ADDRESS 
3GET STATUS FROM TSSR 
ERROR COUNT 
;REWIND NOT ACCEPTED 
TRAP CSERHRD 
-WORD 909 
-WORD T37RWN 
-WORD PKTSSR 
LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP a 0 
2SET UP_ EXPECTED 
SET BOT BIT IN Swecres 
DOES EXP = REC'D 
3BR, IF EQUAL (OK) 
sERROR COUNT 
;TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
-WORD 910 
-WORD 137B0T 
. EXPREC 
LOOP IF SELECTED 
CSCLP1 


:SET UP PACKET ADDRESS 
:SET UP RECORDS TO SPACE OVER 


sACK,CVC=1, SPACE FORWARD COMMAND 


G 5 
TEST 1 = HARDWARE TEST 1-8 TEST MACRO M1113 25-MAY-82 08:43 PAGE 136-3 
TEST 9: FUNCTION TIMING 


6002 102052 
6003 102056 
6004 


oO 
Ro 


NOFNANS 


ed ed ad ed ed ed 
WWNN-— 


of 


150 
150 
152 


RRNA 
Sa 
oO 


N 


102246 


010465 
005237 


012727 


015554 
104406 


104403 


004737 
103002 
000137 


104432 
003304 


000000 
102420 


000001 
002116 
177772 
177756 


000002 
000200 
000200 


002214 


102416 


000077 


002214 


002214 
017262 


016536 
101166 


000017 


260$: 


300$: 


50$: 
52$: 


ERRHRD 


CKLOOP 


ERRHRD 


CKLOOP 
ENDSUB 





R4, TSDB(RS) 
T37CNU 


TSSR(RS),R1 
#5SR,R1 
252$ 
#SSR,R2 

Re Ri 


FATFLG 
ERRNO, T37SCF ,,PKTSSR 


Lf Aah R1 


R2 
w000077 R1 
#000077, ~R2 


FATFLG 
ERRNO, T37TIM,EXPREC 


FATFLG,4@15. 
999 
PC, CKDROP 


PC, TSTLOOP 
163$ 
T37LOOP 
TST 


: ISSUE — 
{DELAY ABOUT 100US 


UNTIL SET 


[WAS EVERYTHING OK 
BR, IF ALL IS 5 


zERROR COUN 
;SPACE FORWARD DIDN'T wa OuT 


sLOOP IF SELECTED 
3 TIME FOR WRITE SPACING 


:BR, IF GOOD aa@a@ CHECK aaaa 
ERROR COUNT 
:TIME WAS NOT DIFFERENT — 


- WORD 

«WORD 

- WORD 
:LOOP IF SELECTED 


SEQ 0264 


#1, (PC)+ 
Pspiy, «pcos 
*6cPe) 
=22(PC) 


CSERHRD 
911 
T37SCF 
PKTSSR 


CSCLP1 


CSERHRD 
912 
T37TIM 
EXPREC 


CSCLP1 


RAP 
KKK KKK KKK END SUBTEST >>>>>>>>>>>> 
L10074: 


TRAP 
z1S ERROR COUNT AT 25 
2BR, IF LESS THAN 25 
TRY TO DROP THE UNIT 


s88 WE “= TO ITERATE TEST 
IF NO LOOP REQUIRED 
EXECUTE AGAIN 


sALL DONE THIS TEST 
TRAP 
«WORD 


CSESUB 


CSEXIT 
L10073-. 


j 

| 043 

| 6044 
6045 
6949 102250 
6052 102250 100004 
6051 102252 102260 
6052 102254 000000 
6053 102256 000012 
6054 1.12260 
6055 142260 102272 
6056 10.262 000000 
6057 102264 000024 
6058 102,66 000000 
6059 102270 000000 
6060 1022/2 
ri ys 
6062 
6063 
6065 1062360 
6067 102360 
6068 102360 100006 
6069 102362 102400 
6070 102364 000000 
6071 102366 000006 
6072 
6076 102370 
6077 102370 100005 
6078 102372 
6079 102372 003116 
6080 102374 000000 
6081 102376 000000 
6082 
6083 
6084 
6085 
6086 102400 
6087 102400 010 
6088 102401 200 
6089 102402 000000 
6090 102404 000000 
6091 
6092 
6093 
6095 
60 100205 


96 102406 
6097 102410 100605 
6098 102412 102205 
6099 102414 177777 


02416 000000 
6103 102420 000000 
Bo 102422 000000 
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SEQ 0265 
ze 
[LOCAL STORAGE FOR THIS TEST 
T37PACKET: ZCOMMAND PACKET FOR TEST 
.WORD 100004 SWRITE CHARACTERISTICS COMMAND, WITH , ACK 
- WORD TS7DATA TADDRESS OF CHARACTERISTICS BLOCK 
“WORD 10. ZSTARTING VALUE OF BLOCK SIZE 
T37DATA: SCHARACTERISTICS DATA BLOCK 
-WORD 1378FR SADDRESS OF MESSAGE BUFFER 
-WORD 20. ZLENGTH OF MESSAGE BUFFER 
T37DSW: .WORD 0 ZSELECT DRIVE 0 
T37BFR: .BLKW 25. [MESSAGE BUFFER 
[WRITE SUBSYSTEM MEMORY COMMAND PACKET 
: =<. +1028177770 
T37PK2: 
.WORD 100006 :WRITE SUB SYS MEM COMMAND, AND ACK 
- WORD 1378F 2 TADDRESS OF SELECT BLOCK DATA 
“WORD 6. :SIZE OF DATA PACKET 
T37PK$: 
aad .WORD 100005 :REREAD COMMAND, AND ACK 
137WB: - WORD FREE SADDRESS OF WRITE BUFFER 
137SZ: WORD 0 :SIZE OF BUFFER (EXTENT) 
“EVEN 
1378F 2: 
137880: .BYTE 10 :BSELO AREA 
1378S1: .BYTE 200 [BSEL1 AREA 
137S2: .WORD 0 [SEL 2 AREA 
13783: :WORD 0 [DATA AREA 
TAPE MOTION PACKET COMMAND VALUES 
T37RN: .WORD 100205 ;REREAD DATA (NEXT) 
T37WDR: .WORD 100605 SREREAD DATA RETRY 
T37CON: :WORD 102205 [WRITE CONTINOUS 
“WORD 177777 TEND OF DATA 


0 :TAPE TIMER COUNTER STORAGE AREA 
T37CNU: .WORD 0 :TAPE TIMER COUNTER STORAGE AREA 
T37DLY: .WORD 0 DELAY COUNTER 
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TEST 9: FUNCTION TIMING SEQ 0266 
6107 
6108 3+ 
6109 sLOCAL TEXT MESSAGES FOR TEST 
6110 :- 
ei 
6113 102424 124 141 160 T37WNG: .ASCIZ ‘Tape Position Incorrect After REREAD Previous (OPP=1)° 
6114 102512 124 123 123 T37RDF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
6115 102561 122 105 \s¢ T37RRF: .ASCIZ "REREAD ; ion pavaee paper ee Read Forward) Command Failed’ 
6116 102656 120 117 123 T37SC: .ASCIZ ‘POSITION ( ) Failed, TSSR Ret Correct’ 
6117 102740 122 111 102 T37LOR: .ASCIZ ‘RIB NOT ser” ae ek READ OREVERSE INTO BOT 
6118 103010 124 123 123 T37WDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set‘ 
6119 103065 111 154 154 T37L0Q: .ASCIZ ‘Ille a Mode Bits, Failed To Set ILC Bit In xSTO' 
6120 103146 122 105 122 T37SSR: .ASCIZ ‘REREAD COMMAND Not Accepted’ 
6121 103202 124 123 123 T37WDE: .ASCIZ ‘TSSR Not Correct After URITE DATA RETRY Command,At BOT’ 
6122 103271 124 141 160 T37BOT: .ASCIZ ‘Tape Not At BOT After ong oe (BOT Not Set In xSTO)* 
6123 103364 127 122 111 T37TIM: .ASCIZ ‘WRITE DATA RETRY''S Erase Tape No € tone ee Eno Tite 
6124 103441 122 105 122 T37EOT: .ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT‘ 
6125 103520 124 123 123 7TH: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
6126 103575 122 145 167 T37RWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
6127 103644 122 101 115 T37RNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In. Ram‘ 
6128 103717 124 123 123 T37AM3: .ASCIZ ‘TSSR Init. Failed After REREAD C 
6129 103766 104 162 151 T370FL: .ASCIZ ‘Drive 7 Select Failed To Set Moree In TSSR* 
6130 104041 124 123 123 T37WDD: .ASCIZ ‘TSSR “ot Correct After REREAD DATA Command, SWB Bit Set’ 
6131 104131 124 123 123 T37WDC: .ASCIZ ‘TSSR Not Correct After RcREAD DATA Command ® 
6132 104204 103 126 103 T37VCK: .ASCIZ ‘CVC Set. Didn’'t Reset VCK In Message Buffer’ 
6133 104257 124 123 102 137BA: .ASCIZ ‘TSBA Not correct After REREAD DATA ommand'‘ 
6134 104332 127 122 111 T37WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)' 
6135 104421 122 145 141 TS37LON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO’ 
6136 104503 122 145 141 T37LOP: .ASCIZ ‘Reading Lone Record Failed To Set RLS Bit In xSTO' 
6137 104565 122 145 163 T37PBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 
6138 104653 122 145 141 T37TRL: .ASCIZ eed“ Long Record Failed To Give Tape Status Alert’ 
6139 104741 127 122 111 T37NEF: .ASCIZ ‘WRITE DATA RETRY, At First Record, Failed we, Set RIB Bit xST3° 
6140 105037 124 123 123 T37SCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Comma 
6141 105114 124 123 123 T37TSA: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY, ae Bor’ 
6142 105176 124 123 123 T37WRF: .ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command’ 
6143 105256 104 141 164 T37DTA: .ASCIZ ‘Data coqpore Error, Data Read From Tape Not Equal To Written’ 
6144 105353 106 165 156 TST37ID: eASCIZ unction Timing‘ 
6145 EVEN 
eis ° 
6148 “ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
art WRITE SUBSYSTEM MEMORY COMMAND 
6151 [= 
6152 
6153 105374 T37REST: 
6154 105374 SAVREG sSAVE THE REGISTERS 
6155 105400 012701 102250 MOV errroacta! Ry sSTART OF THE PACKET 
6156 105404 012721 100004 MOV #100004, ( Ri)+ SWRITE SUBSYSTEM MEM. WITH ACK, 
6157 105410 012721 102260 MOV ATS7DATA, (R1)+ * ADDRESS OF CHARAISTICS CATA BLOCK 
6158 105414 005021 CLR (R1)+ sEXTENDED ADDRESS 
6159 105416 012721 000012 MOV #10.,(R1)+ [SIZE OF DATA BLOCK IN BYTES 
6160 105422 012721 102272 MOV ATsrérR, (R1)+ ZADDRFSS OF MESSAGE BUFFER 
6161 105426 005021 CLR 
6162 105430 012721 000024 MOV #20, (R104 ;LENGTH OF MESSAGE BUFFER 
6163 105434 005021 CLR 


aa | 
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6164 105436 
61 42 


6171 
6172 
6173 105466 
6174 105466 
6175 105472 
6176 105476 
6177 105502 
6178 105506 
6179 105510 
6180 105514 
6181 105516 
6182 105522 
6183 105524 
6184 105526 
6185 105530 
6186 105530 
6187 105534 
6188 105540 
6189 105542 
6190 105544 
6191 105546 
6192 105550 
6193 105552 
105552 
105552 
6194 105554 





11 
000207 


104401 
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000000 
000030 
177777 


000000 


102360 
100006 
102400 
000006 


102400 


102370 


102272 64$: 


T37RT2: 


T37RT3: 


R 
ENDTST 


ENDMOD 


#0, (R1) 
#24, ,R2 
#170777 ,T37BFRCR2) 


90. 23 
64 4$ 


#T37PK2,R1 
#100006, (R1)+ 
#T37BF2, o(R1)+ 


06. (RID® 
#137BF2, R1 
(Ri)+ 

(R1) 

PC 
#T37PK3,R1 
(R1)+ 
(R1)+ 
(R1)+ 


(R1) 
PC 


SELECT DRIVE ZERO 

NUMBER OF LOCATIONS TO BE CLEARED 
ZALL we, i MESSAGE BUFFER 

NEXT LOC , ite 

AT END OF YET 

ZREEP GOING UNTIL DONE 


4 ot} THE Tre bates 
START OF THE PACKET 
;WRITE SUBSYSTEM ate WITH ACK, 


: DDRES 
SIZE OF DATA BLOCK IN BYTES 
POINT TO DATA SEL AREA 


RETURN 


sSAVE REGISTERS 
3SET me ark ADDRESS 


: COMMAND SP. 

ADDRESS OF DATA BLOCK 
EXTENDED ADDRESS 

SIZE OF DATA TRANSFER BLOCK 
RETURN 


L10073: 
TRAP 


CSETST 


SEQ 0267 
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} -TITLE TSV6 = PARAMETER CODING 
12 
18 
19 105554 BGNMOD TSV6 
105554 TSV6:: 
4 
$$ -SBTTL HARDWARE PARAMETER CODING SECTION 
24 p++ 
25 3; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
26 ; THAT ny USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
27 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
28 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
29 ; MACROS ALLOW Hy. a — TO ESTABLISH COMMUNICATIONS 
z ; WITH THE OPERATOR 
32 105554 BGNHRD 
105554 000010 ~WORD L10075=LS$HARD/2 
33 105556 LSHARD:: 
34 105556 GPRMA 4HPM1,0,0,160010,177776, YES ;GET TSBA/TSDB REGISTER ADDRESS. 
105556 000031 «WORD TSCODE 
105560 105576 ~WORD HPM1 
105562 160010 «WORD TS$LOLIM 
105564 177776 ~ WORD TSHILIM 
35 105566 GPRMA HPM2,2,0,0,776,YES 3GET VECTOR ADDRESS. 
105566 001031 ~WORD TSCODE 
105570 105632 -WORD HPM2 
105572 000000 WORD tis 
105574 000776 -WORD TS$HI 
36 ;GPRMD lenge ¥ 0,340,0,7.YES 3GET INTERRUP; PRIORITY. 
37 105576 ENDHRD 
-EVEN 
105576 10075: 
38 105576 104 105 126 eASCIZ ‘DEVICE ADDRESS (TSBA/TSDB) . 
39 105632 111 116 124 reel eASCIZ ‘INTERRUPT VECTOR 
40 105656 111 116 124 HPM3: eASCIZ ‘INTERRUPT PRIORITY : 
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SOFTWARE PARAMETER CODING SECTION SEQ 0269 
44 .SBTTL SOFTWARE PARAMETER CODING SECTION 
46 
47 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
48 3 THAT ARE USED BY TH" SUPERVISOR TO BUILD P-TABLES. THE 
49 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
50 ; INTERPRETED BY THE S\IPERVISOR AS DATA STRUCTURES. THE 
51 : MACROS ALLOW THE SUPEn‘'!SOR TO ESTABLISH COMMUNICATIONS 
26 : WITH THE OPERATOR, 
54 105706 ° BGNSFT 
105706 000003 .WORD L10076-L$SOFT/2 
105710 LSSOFT:: 
55 ; GPRML SPM1,0,-1, YES : GET TRANSPORT TEST FLAG. 
56 105710 GPRML SPM4.2.-1.YES : GET ITERATION CONTROL. 
105710 001130 .WORD TSCODE 
105712 105746 .WORD  SPM4 
105714 177777 “WORD =1 
57 : GPRMD  SPM6,4,D,7777,0.7777.YES : GET LOCAL ERROR LIMIT 
58 : GPRMD  SPM7.6,D.7777.0.7777,YES ; GET GLOBAL ERROR LIMIT 
59 105716 ENDSFT 
EVEN 
105716 L10076: 
3 
62 105716 105 116 101 SPM1: .ASCIZ ‘ENABLE TRANSPORT TESTS ° 
63 105746 111 116 110 SPM4:  .ASCIZ ‘INHIBIT ITERATIONS ' 
64 105776 120 105 122 SPM6: .ASCIZ ‘PER TEST ERROR LIMIT ° 
65 106026 120 105 122 SPM7: .ASCIZ ‘PER UNIT ERROR LIMIT ° 
66 .SBTTL PATCH AREA 
9 : FINALLY A GENEROUS PATCH AREA. 
71 : AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7"' HACK 
re : DESCRIBED IN ''SUPPRG.MEM' (FOR REV C 
74 : 
ie 106056 PATCH 
v 106056 .BLKW 32. 
80 106400 .=. 137741 
82 106400 LASTAD :SET LAST USED ADDRESS. 
106400 000000 ‘WORD 0 
106402 000000 .WORD 0 
106404 LSLAST:: 
83 106404 ENDMOD 


000001 -EN 
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SYMBOL TABLE SEQ 0270 
ADDSSR 012206 G CSAU_ = 000052 DEVDRO 023456 FRESIZ 003120 G INTFLA 016225 
ADR = 000020 CSAUTO= 000061 DEVNRD 023375 FUSI 004113 INTMAS 016224 
AMBTSS 006713 CSBRK = 000022 DEVNXR 023313 U_ = 000015 NTR 016276 G 
= 00001 C$BSEG= 000004 DEVONL 023243 FSAUTO= 000020 INTREC pocsi6 G 
A1716 = 000003 CSBSUB= 000002 023206 $8 00040 INTVEC 016226 
ADDAT 003150 G SCEFG= 000045 DFPTBL 002150 G FSCLEA= 000007 INTX 004274 
BADSSR 015760 G CSCLCK= 000062 DIAGMC= 000000 U_ = 000016 INVERT 1266 G 
BDVPCR= 177520 G CSCLEA= 000012 DICED = 000001 FSEND = 000041 IOKCKI= 000200 
BENBSW 002222 G C$CLOS= 000035 DSBINT 016264 FSHARD= 000004 IOKSTP= 000001 
BIE = 040000 C$CLP1= 000006 DUADI2 004637 W = 000013 IPRI 02204 G 
BITO = 000001 G CSCVEC= 000036 DUFLG 003104 G FSINIT= 000006 ISR = 000100 G 
1T00 = 000001 G CSDCLN= 000044 D 003054 FSJMP = 000050 IVEC 002202 G 
BITO1 = 000002 G C$DODU= 000051 EF.CON= 000036 G FSMOD = 000000 IXE = 004000 G 
BITO2 = CSDRPT= 000024 EF .NEW= 000035 G FSMSG = 000011 ISAU_ = 000041 
BITOS = 000010 G U = 000053 EF .PWR= 000034 G FSPROT= 000021 ISAUTO= 000041 
BITO4 = 000020 G CS$EDIT= 000003 EF .RES= 000037 G FSPWR = 000017 ISCLN = 000041 
BITOS = 000040 CSERDF= 000055 EF.STA= 000040 G FSRPT = 000012 I$SDU_ = 000041 
BITO6 = 100 CSERHR= 000056 EMAXDU 017057 F$SEG = 000003 ISHRD = 000041 
BITO7 = 000200 G CSERRO= 000060 EN = 000000 F$SOFT= 000005 ISINIT= 000041 
BITO8 = 000400 G CSERSF= 000054 ENAINT 016232 FS$SRV = 000010 ISMOD = 000041 
BITO9 = 001 G CSERSO= 000057 ENVIRN 020710 F$ = 000002 ISMSG = 000041 
BIT] = 000002 CSESCA= 000010 EPRTSW 002172 G $SW = 000014 ISPROT= 000040 
BIT10 = 00 G CSESEG= 000005 EPRT1 006354 FSTEST= 000007 ISPTAB= 000041 
BIT11 = CSESUB= 000003 EPRT2 006413 GDDAT 003152 G = 000041 
BIT12 = 01 CSETST= 000001 ERCM 12013 GERRMA 002166 G ISRPT = 000041 
BIT13 = 020000 G C$EXIT= 000032 ERRHI 002230 G GETPAT 020254 G ISSEG = 000041 
BIT14 = 04 C$GETB= 000026 ERRK 17036 GETSEL 020336 G ISSETU= 000041 
BIT15 = 100000 C$GETW= 000027 ERRLO 002232 G GSCNTO= 000200 ISSFT = 000041 
BIT2 = 000004 G = ERRNO = 001620 GSDELM= 000372 ISSRV = 000041 
BITS = 000010 G C$GPHR= 000042 ERRVEC= 000004 GS$DISP= 000003 I$SUB = 000041 
BIT4 = 000020 G C$GPLO= 000030 ERTABE 003370 GSEXCP= 000400 ISTST = 000041 
BITS = 000040 G $GPRI= 000040 ERTABL 003170 GSHILI= 000002 J = 000167 
BIT6 = 000100 G C$INIT= 000011 ESUM 017040 G$LOLI= 000001 KIPARQ= 172340 
BIT7 = 000200 G CSINLP= 000020 EVL = 000004 G$NO_ = 000000 KIPARI= 172342 
BIT8 = 000400 G = 050 EXBCNT= 000010 GSOFFS= 000400 KIPAR2= 172344 
BIT9 = 001000 G C$MEM = 000031 EXPBRE 5562 G GSOFSI= 000376 KIPARS= 172346 
= 00 G SG = 000023 EXPD 002224 G GSPRMA= 000001 KIPAR4= 172350 
BRINIT 004453 CSOPEN= 000034 EXPGOT 004527 GSPRMD= 000002 KIPARS= 172352 
ELO = 0 0 NTB= 14 EXPGT2 004563 GSPRML= 00000 KIPAR6= 172354 
BSEL1 = 000001 = 17 EXPMSG 002314 G GSRADA= 000140 KIPAR7= 172356 
CHKAMB 016 CSPNTS= 000016 EXPREC 015554 G G$RADB= 000000 KIPDRO= 172300 
CHKMAN 020560 G CS$PNTX= 000015 EXT 005766 GSRADD= 000040 KIPORI= 172302 
CHKTSS 01 c$Q10 = 000377 EXTEND 00576 GSRADL= 000120 KIPDR2= 172304 
CKDROP 017262 C$RDBU= 000007 EXTFEA 002220 G GSRADO= 000020 KIPDRS= 172306 
CKEMAX 017162 CSREFG= 000047 ESEND = 002100 GSXFER= 000004 KIPDR4= 172310 
CKMSG 011440 G C$RESE= 000033 ESLOAD= 000035 GSYES = 000010 KIPDRS= 172312 
CKMSG2 011560 G C$REVI= 000003 FATERR= 000060 HIADDR= 001400 KIPOR6= 172314 
CKRAM 011174 G C$RFLA= 000021 FATFLG 002214 HOE = 100000 G KIPDR7= 172316 
CKRAM2 011304 G C$RPT = 000025 FERCM 012002 HPM1 193378 KTE 003126 G 
CMDPKT 021340 G C$SEFG= 000046 FIFEXP 012250 HPM2 10563 KTFLG 003124 G 
CMPMEM 017740 C$SPRI= 000041 FIFIMS 012322 HPM3 105656 KTINIT 021134 
CONFIG 017330 C$SVEC= 000037 FIF2MS 012371 IBE = 010000 G KTOFF 017354 
COUNT 002302 G CSTPRI= 000013 FILLME 017502 IDU == 000040 G KTON 017336 
CSRADD TA 00230: FNOINT 004211 IER = 020000 G LERRMA 002164 G 
C 003156 G DATASC 020312 FORCER oA G IFAULT 004252 LISTAL= 000001 
CTABE 003170 G DEBUGM 011712 FREE 003116 G INCERK 017124 LOE = 040000 G 
CTABM 003156 G DEVCNT 002212 G FREEH] 003122 INTCPC 016230 LOOPCN 002210 G 
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| SYMBOL TABLE SEQ 0271 
LOOPCO 013206 L10001 002170 L10073 105552 OSERRT= 000000 PST32W 003144 G 
| LOOPFL 003154 G L10002 00.762 L10074 102214 OSGNSW= 000001 PUNIT 022364 
LOT = 000010 G L10003 012124 L10075 105576 O$SPOIN= 000001 -D11= 000021 
LSACP) =: 002110 G L19004 012142 L10076 105716 O$SETU= 000000 PW.D13= 000022 
LS$APT 002036 G L10005 012160 EMADD 014034 G PAS 022134 -D22= 000020 
LSAU 022432 G 110006 012166 MEMCK 021356 G 106056 G PW.NOP= 000000 
L$AUT 002070 G L10007 012204 ENASC 020527 PATDAT 020310 PW.NO1= 000023 
LSAUTO 022636 G L10010 012222 MENERR 02045 PC.ERA= 002400 W.RDE= 000024 
L$CCP) 002106 G L10011 012246 MENRES 0556 PC. IER= 002000 -RDR= 000001 
LSCLEA 022716 G L10012 012320 EC = 000250 PC.NOO= 001000 PW.RDS= 000005 
L$CO 002032 G L10013 0%2470 MSA.FR= 000006 PC.REL= 000000 Pw. te peonos 
LSDEPO 002011 G L10014 013204 MSA.NO= 000000 PC.REW= 000400 -WCT= 
LSDESC 003402 G L10015 014032 -NR= 000004 PKBCNT= 000006 PW.WF I= 
LSDESP 002076 G L10016 014054 MSA.VO= 000002 PKHI = 000004 PW.WFM= 000007 
LSDEVP 002060 G L10017 015560 MSGEXP 012224 G PKLOW = 000002 Pw.WMI= 000010 
LSDISP 002124 G L10020 015566 MSGLOO 013144 G PKTADD 007632 -WNP= 00001 
LSOLY 002116 G L10021 015574 MSGSTA 012430 G PKTFRM 007574 PW.WTR= 000002 
LSDTP 002040 G L10022 015606 MSGSUB 014022 G PKTGET 012144 G P.ACK = 100000 
LSDTYP 002034 G L10023 015630 MS.ATT= 000006 PKTMES 012170 G P.CMD = 000037 
L$DU 022530 G L10024 015656 MS.EXT= 000200 PKTRAM 004741 G P.CONT= 000012 
L$DUT 002072 G L10025 016016 MS.RSD= 000001 PKTSSR 012126 G P.CVC = 040000 
LSDVTY 003374 G L10026 016326 MS.RSF= 000020 PNT = 001000 G P.FMT = 000140 
LSEF 002052 G L10030 022362 MS.RST= 000010 PRAMPK 014056 P.FORM= 000011 
LSENVI 002044 G L10031 022526 M8186 - 005550 PRASC 014603 P.GETS= 000017 
LSETP 002102 G L10032 022634 M8189 005641  - PRBEXP 015550 P.IE = 000200 
LSEXP1 002046 G L10033 022714 A = 002000 PRBMSG 015416 P.INIT= 000013 
LSEXP4 002064 G L10034 022742 NEWPAS 022070 PRBREC 015552 P.MODE= 007400 
LSEXPS 002066 G L10035 023204 NODEV 003106 G PRBTOT 015503 P.OPP = 020000 
LSHARD 105556 G L10036 032332 NOINIT 004331 PRBYTE 015202 G P.POSI= 000010 
LSHIME 002120 G L10037 024170 NOINTR 004215 PRI = 002000 G P.READ= 000001 
LSHPCP 002016 G L10040 024712 NOITS 002162 G PRIADD 010236 -SWB_= 010000 
LSHPTP 002022 G L10041 025436 OMAN 020614 PRIAO 010306 P.WRIT= 000005 
LSHW 002150 G L10042 026260 NOMEM 005454 PRIBXO 007670 P.WRTc= 000004 
LSICP_ 002104 G L10043 041430 NP.IR = 000200 PRIEQU 010136 P.WRTS= gosaee 
LSINIT 021636 G L10044 033734 NP.LOO= 000040 PRIPKT 007446 Qi 002176 G 
LSLADP 002026 G L10045 035360 NP.OUT= 000100 PRIRAM 010144 RAMASC 014236 
LSLAST 106404 G L10046 035754 NP.WRP= 000020 PRITAD 010352 RAMDAT 002234 G 
LSLOAD 0602100 G L10047 036440 4146 PRITSS 006020 RAMERR 015570 G 
L$LUN 0020/74 & L10050 046766 NSINIT 004403 PRITO 010434 RAMEXP 015610 G 
LSMREV 002050 G L10051 042322 NUL 04523 PRIT1 010477 RAMFOR 010174 
002000 G L10052 043134 NULCR 904524 PRIXOR 010020 G RAMSIZ 002274 G 
LSPRIO 002042 G L10053 053044 NXM = 004000 PRIOO = 000000 G RAMTAD 015576 G 
LSPROT 021626 G L10054 047642 NXMFLG 003130 G PRIO1 = 000040 G RCVHIA 002276 G 
LSPRT 002112 G L10055 050452 NXMHI 03134 G PRJ92 = 000100 G RCVLOA 002500 G 
LSREPP 002062 G L10056 051266 NXMLO_ 003132 G PRIO3 = 000140 G RDERR 005202 
L$REV 002010 G L10057 056040 NXMTST 021532 PRI04 = 000200 G RECMSG 002460 G 
LSRPT 022744 G L10060 054506 NXR 03734 PRIOS = 000240 G RECV 002226 G 
L$SOFT 105710 G L10061 063412 NXRERR 005732 G PRI06 = 000300 G REGSAV 020220 
L$SPC_ 002056 G L10062 060476 NXRX 003773 PRIO? = 000340 G RETERR 005366 
L$SPCP 002020 G L10063 073342 XTU 022102 PRMESS 014322 D 011074 G 
LSSPTP 002024 G L10064 064504 OFL = 0001 MN 002312 G RMCHBE= 000167 
L$STA 002030 G L10065 065564 ONEFIL= 000000 PRMSGE 014632 G RMCHEN= 000200 
Sw 002160 G L10066 066426 O$SAPTS= 000000 PRMSGO 015012 MMSGB= 000215 
LSTEST 002114 G L10067 067330 U = 0000 PRMSG1 015057 RMMSGE= 000234 
LSTIML 002014 G L10070 101130 O$BGHR= 000001 PRMSG2 015115 RMPKTB= 000201 
LSUNIT 002012 G L10071 074436 GNS= 000001 PROASC 014500 RMPKTE= 000210 
L10000 002156 L10072 075520 O$DU = 000001 PRIASC 014545 RMR = = 010000 
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ABLE SEQ 0273 
T3ICNT 043336 T32CNU 051512 T34BA_ 06304 T35CON 067532 1368S1 075711 
T3ICNU 043340 T32DAT 051340 T34BFR 06056 T35DAT 067400 T36CNT 075726 
T3ICON 043332 T3S20LY 051514 T34BF2 060676 S5DLY 067542 T36CNU 075730 
T31DAT Be agey T32DSW 051350 T34B0T 061234 T35D0SW 067410 T36CON 075722 
T3IDLY 043342 T32ECF 052455 T348S0 060676 T35DTA 072325 T36DAT 075570 
T31DSW 043210 T32EOT 051611 134881 060677 T35EOT 070510 T36DLY 075732 
T3IDTA 046446 T32ERA 052016 T34CNT 060672 T3SINT 072601 T36DSW 075600 
TSIEOT 044540 T32L 047020 ON 060710 T3S5LON 071470 T36DTA 100634 
T31LON 045520 T320PI 052603 T34DAT 060550 T35LOO 063444 T36EOT 077017 
T31L00 041462 T32PAC 051330 T34DLY 060674 T35LOP 071552 T36LON 077777 
T3ILOP 045602 T32PK2 051440 T34DSW 060560 T35L00 070205 T36L00 073400 
T31LOQ 044116 T32PK$ 051450 T34EOT 062205 TSSLOR 070060 T36LOP 100 
T31LOR 043771 T32RB_ 9051452 34ET 62116 T3SMOT 0725 T36L00 076460 
T3INEF 046040 T32RES 052700 T34ETC 1157 T3SNEF 072010 T36LOR 076333 
T310FL 045065 T32RIB 052136 T34ETN 1451 T3SNIN 073056 T36NAS 075734 
T3IPAC 043170 T32RT2 052772 T34ETO 061002 T350FL 071035 T36NEF 100317 
T31PBP 045664 T32RTS 053022 T34ETS 30 OPM 072672 T360FL 077344 
T31PK2 043300 T32RWN 051700 T34ETZ 061622 T35PAC 067370 T36PAC 075560 
T31PK3 043310 T32SCF 052234 T34ET2 061 071634 T36PBP 100143 
T31RB_ = 043312 T32SZ 051456 T34L00 056072 T35PK2 067500 T36PK2 075670 
T3IRDE 043344 T32TSA 052311 T340FL 062527 T35PK$ 067510 T36PK3 075700 
TSIRDF 043543 T32WB = 051452 T34PAC 060540 T35RB_ 8 =067512 T36RB_ 075702 
T3IRES 046610 T32WD0C 052536 T34PK2 060650 T3SRDF 067632 T36RDF 076105 
T3IRN 043326 T33BFR 054572 T34PK3 060660 T35RES 073164 T36RES 100752 
T3IRNC 044743 T338F2 054700 T34POS 060714 T3SRN 067526 075716 
T3IRRF 043612 T3380T 055325 T34RB_ 060662 T3SRNC 070713 T36RNC 077222 
T3IRT2 046702 T338S0 054700 T34RES 063232 T35RRF 067701 T36RRF 076154 
T3IRTS 046744 T338S1 054701 T34RNC 062406 T35RT2 073256 T36RT2 04 
T3IRWN 044674 T33CNT 054716 T34RRE 061066 T35RTS 073320 T36RTS 101106 
T31SC 3707 T33CNU 054720 T34RSZ 060670 T35RWE 072770 T36RWN 077153 
T31SCF 046161 54712 T34RT2 063324 SRWN 070644 T36SC_ 076251 
T31SSR 044177 T33DAT 054560 T34RT$ 063366 T35SC_ 067776 T36SCF 04 
T31SZ 043316 T330LY 054722 T34RWN 062337 T35SCF 072106 T36SSR 076541 
T31S2 043322 T33DSW 054570 T34SSR 062063 T35SSR 072422 T36SZ 075706 
T3183 043324 T33DTA 055550 T34STM 061700 T35SZ 067516 T36S2 0075712 
T3ITIM 044440 T33L00 053076 34SZ 060666 35S2 067522 075714 
T31TM 044617 T33PAC 054550 T34S2 060700 T3583 067524 T36TIM 076742 
T31TRL 045752 T33PK2 054660 T3483 060702 T35TIM 070433 077076 
T31TSA 6236 T33PK3 054670 T34T™M 062263 T3STM 070567 T36TRL 100231 
T31VCK 5303 T33RB_ 9054672 T34TMK 061763 T3STRL 071722 T36TSA 100472 

043312 T33RBP 054724 T34VCK 062773 T3STSA 072163 T36VCK 077562 
T31WDC 045230 T33RES 055662 T34WB 060662 T35VCK 071253 075702 
T31WOD 045140 054706 T34WD 060704 067512 WDC 077507 
T3IWDE 044233 T33RT2 055754 T34WDC 062671 WOC 071200 T36WOD 077417 
T31WDF 1 T33RTS 056016 T34WDD 062602 T35wOD 071110 T36WDE 076575 
T31WDR 043330 33RWN 055420 T34WDR 060706 T35WDE 070266 T36WDF 64 
T31WNG 043471 T33SSR_ 055241 T34WSS 063120 T35WDF 070130 T36WDR 075720 
T31WNH 043410 T33SZ2 054676 T34WTM 061300 T35WOR 067530 T36WNG 076017 
T31IWRF 046343 T33S2 054702 S5AM3 070766 T35WNG 067544 T36WRF 100554 
T31WSS 045431 T3383 054704 35BA 071326 T35WRF 072245 T36WSS 077710 
T32AM3 051747 T33UNC 055062 T35BFR 067412 T35WSS 071401 T37AM3 103717 
T32BA_ 052063 T33UND 055152 35BF2 067520 T36AM3 077275 37BA_ = 104257 
T32BFR 051352 T33WB 86054672 T35B0T 070340 T36BA_ 077635 T37BFR 102272 
32B0E 052366 T33WDC 055467 T358S0 067520 T36BFR 075602 T37BF2 102400 
T32B0T 051516 T33WOR 054710 T358S1 067521 T36BF2 075710 T37B0T 103271 
T32CMD 051460 T33wPwW 055002 T35CNT 067536 T36B0T 076647 T378S0 102400 
T32CNT 051510 T34AM3 062461 T35CNU 067540 T36BS0 075710 T37BS1 102401 








ABLE 

T37CNT 102416 T37SSR_ 103146 17.4 066444 S 021350 
T37CNU 102420 3782 102376 18 073344 G XFERAS 016020 
T37CON 102412 T37S2 = 102402 18.1 073400 XNXM 016456 
T37DAT 102260 3783 ese 18.2 074454 XORBFO 007752 
TS7DLY 102422 T37TIM 103364 19 101132 XORFOR 010070 
T370SW 102270 37T 103520 19.1 101166 XSTO = 000006 
T37DTA 105256 T37TRL 104653 UAM = 000200 G XST1 = 000010 
T37EOT 103441 T37TSA 105114 UNITN 002174 G XST2 = 000012 
T37LON 104421 T37VCK 104204 UNREC = 000006 XSTS3 = 000014 
T37L00 101166 37 102372 SI 004117 XST4 = 000016 
T37LOP 104503 T37WDC §=104131 WAITF 016330 G XSOBOT= 000002 
T37L0Q 103065 T37WDD 104041 WC.IFA= 000200 XSOEOT= 000001 
T37LOR 102740 T37WDE 103202 WC.IFE= 000002 XSOIE = 000040 
T37NEF 104741 T37WDF 103010 -1G0= 000001 XSOILA= 000400 
T370FL 103766 T37WOR 102410 WC.IRE= 000010 XSOILC= 001000 
T37PAC 102250 T37WNG 102424 WC.IRW= 000004 XSOLET= 020000 
T37PBP 104565 T37WRF 105176 WC.10T= 000100 XSOMOT= 00020 

T37PK2 102360 T37WSS 104332 C.11T= 000040 XSONEF= 002000 
T37PK3 102370 T 046770 G WC.I5R= 000020 XSOONL= 000100 
T37RB_ = 102372 14.1 047020 F.IED= 0000 XSOPED= 000010 
T37RDF 102512 14.2 047660 WF. IER= 000004 XSORLL= 01000 

T37RES 105374 4.3 050470 WF .IHI= 000200 XSORLS= 040000 
T37RN 1024 53046 G WF.IRE= 000040 XSOTMK= 100000 
T37RNC 103644 5.1 053076 WF. IWF= 000020 XSOVCK= 000020 
T37RRF 102561 T 056042 WF.IWR= 000100 XSOWLE= 004000 
T37RT2 105466 T6.1 056072 eit = 0000 XSOWLK= 000004 
T37RT3 105 ? 063414 F.14R= 000001 XXCOMM 003114 
T37RWN 103575 7.1 063444 URTCHR 010742 G X$ALWA= 000000 
T37SC_ 102656 17.2 064522 WRTERR 005107 X$FALS= 000040 
T37SCF 105037 17.3 065602 WRIMSG 005052 


- ABS. 106404 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 30328 WORDS ( Ha PAGES) 

DYNAMIC MEMORY 20346 WORDS ( 78 PAGE 

ELAPSED TIME: ‘00: 39: 

CVTSDAO, CVTSDAO/=SP=SVC/ML, TSV1D, TSV22D, TSV3B,TSV4,TSV7B8,TSV6 





XSOFFS= 000400 


x3. SPA= 000200 
0020 
X4.HSP= 100000 


X4.MBZ= 017400 
X4.RCE= 040000 
X4.TSM= 020000 
X4.WRC= 000377 


SEQ 0274 


